If und FindWindow??

[xShadowBoZz]

also hab momentan folgendes problem.
naja am besten erzaehl ich euch was ihc machen will und was ich probiert habe zu schreiben.
also als erstes setzt ich einen bestimmten button auf enabled=False (hab ich schon eingestellt)(nin diesem fall button2).
nun will ich das wenn ein bestimmtes fenster gefunden wird das der button gleich Enabled='True' ist.
hab des bei Activate eingestellt, weis aba nicht ob des dann fuer die ganze zeit gilt, wenn nich wie soll ich das machen? Also sodass das fenster auch noch gefunden werden kann nachdem ich das programm gestartet hab.

also kurz und knap:
als ersten Programm starten.
danach soll es nach einem bestimmten fenster suchen.
wenn des gefunden ist istgleich Button2.Enabled='True'.

habs schon mit folgendem versucht hat aba net geklappt.(bei einem gabs gleich eror wenn ich program starte, dann muss ich programm reset machen).

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);
var Window: Hwnd;
begin
  Window:=FindWindow(NIL,'Fenster');
If Window then
  Button2.Enabled='True'
else
  free;
end;

da kommen dann folgende Errors:

[Error] Programm.pas(132): Type of expression must be BOOLEAN
[Error] Programm.pas(133): ':=' expected but '=' found
[Error] Programm.pas(134): Incompatible types: 'Boolean' and 'String'
[Fatal Error] Project.dpr(8): Could not compile used unit 'Programm.pas'

dann habs ichs ma so versucht:

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);
var Window: Hwnd;
begin
  Window:=FindWindow(NIL,'Fenster');
If StrToBool('Window') then // hier war [Error] Programm.pas(132): Type of expression must be BOOLEAN
  Button2.Enabled:='True' // hier war [Error] Programm.pas(133): ':=' expected but '=' found
else
  free;
end;

danach kommen noch die

[Error] Programm.pas(134): Incompatible types: 'Boolean' and 'String'
[Fatal Error] Project.dpr(8): Could not compile used unit 'Programm.pas'

habs dann nochma versucht:

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);
var Window: Hwnd;
begin
  Window:=FindWindow(NIL,'Fenster');
If StrToBool('Window') then 
  Button2.Enabled:=StrToBool('True') // hier StrToBool eingesetzt.
else
  free;
end;

danach kommt nur noch ein Hint is ja irgendwie logisch weil ich des Window in ('') gesetzt habe.
[Hint] Programm.pas(131): Value assigned to 'Window' never used

allerdings kommt beim direkten start diese nachricht/error:
http://hts-forum.pytalhost.com/htsfiles/DelphiError.jpg

hoffe jemand kann mir helfen.