datei neu speichern, wenn nicht vorh.

[Master-Joko]

guten abend an die ganzen programmers hier...

ich hab folgendes problem, was ich schon seit 2std. nicht beseitigt kriege. nachdem ich die FileExists routine reingepackt hab, klappt nun nix mehr (compilieren).
es tritt folgende meldung auf

Delphi-Quellcode:

Statement expected, but Procedure found
could not compile used unit in 'main.pas'

achja die variable sl: TStringList; hab ich als global deklariert

Delphi-Quellcode:

procedure Thaupt.generate_buttonClick(Sender: TObject);

begin
 if not FileExists('Content.txt') then
    begin
      sl:=TStringList.Create;
      try
      sl.Add('Content.TXT wurde nicht gefunden!');
      sl.Add('Datei neu erzeugt');
      sl.SaveToFile('Content.TXT');
      finally
      sl.free;
      memo1.clear;
      memo1.Lines.LoadFromFile('Content.TXT');
    end;
end;

könnte mir bitte jemand helfen????