1:
2:
3:
4:
5:
6:

function GetHandleFromWindowTitle(TitleText: String): hWnd;
var
  StrBuf: Array[0..$FF] of Char;
begin
  Result := FindWindow(PChar(0), StrPCopy(StrBuf, TitleText));
end;					

1:

Windows.SetFocus(GetHandleFromWindowTitle('Beispiel'));					

1:

Windows.BringWindowToTop()					

1:

ttime(now)					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Timer1Timer(Sender: TObject);
var
   WHandle: THandle;
begin
  WHandle := FindWindow(nil, 'HIER DIE TITELZEILE');
  BringWindowToTop(WHandle);
  PostKeyEx32(VK_F5, [], False);
  dbmeter1.position := 0;
  i := 0;
end;