Обнулил
Htemp первой строкой в функции
GetWindowHandle, и всё стало работать правильно. Всем спасибо за участие.
Код:
procedure TSendKeys.GetWindowHandle(Text: string);
begin
Htemp:=0;
temps := Text;
ChildText := fChildText;
ChildWindow := fChild;
EnumWindows(@PRVSendKeys, L);
fHandle := HTemp;
end;
Ещё один детский вопрос. Как разбить файл программы (у меня
Unit1) на несколько файлов, чтобы легче было редактировать?