Onclose und close Problem

[mr____zero]

so denke mal das ist ein absolutes noob problem traue mich aber trozdem mal zu fragen^^

wenn ich meine form schließe will ich das vorher noch ein paar sachen gespeichert werden darum habe ich onclose eingebraut das sieht dann so aus

Delphi-Quellcode:

procedure TForm1.close(Sender: TObject; var Action: TCloseAction);
begin
    codetext(Memo3.Text) ;
    form1.Memo2.Lines.SaveToFile('C:\huhu.txt');
end;

das funzt auch nur meckert jetzt mein close eintrag im menü rum das ihm parameter fehlen hab da auch mal was eingetrage und Kompilieren kann ich das auch ohne probleme nur schließen will sich meine form nicht wenn ich drauf klicke^^

Delphi-Quellcode:

procedure TForm1.Schlieen1Click(Sender: TObject);
var ul : tcloseaction;
begin
    ul := cafree;
    form1.close(schlieen1,ul);
end;

hoffe ihr könnt mir helfen