Problem mit Buttons

[Gehstock]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Enabled := FileExists('c:\1.txt');//1.txt ist die zu findende Datei
if Button1.Enabled = True  then  Button3.Caption := 'Datei gefunden'
 else
  Button1.Caption := 'Datei nicht gefunden';
end;