Зачем было менять почти рабочую часть на эту чушь?
Цитата:
|
if findwindow(nil, 'Racing') <> 0 then
|
Достаточно было поменять "ClassName = 'TForm8'" на "Title = 'МоёСуперОкноКотороеНадоПоменять'" и всё.
А вообще, прежде, чем копировать случайные куски кода с разных форумов и вставлять их в случайным образом выбранные места в коде, стоило разобраться хотя бы в общих чертах, что такое программирование и что такое код на Delphi.