Menu Funktionen programmieren

[astiope]

Also ich habe das Befehl end; reingeschrieben aber trotzdem stoppt es.Schreiben sie mal wie sie es sich das vorstellen.

Delphi-Quellcode:

procedure TForm1.ffnen1Click(Sender: TObject);

begin
    if dlgOpen.Execute then
end;

begin
    (* Hier das, was mit den Dateinamen geschehen soll *)

end;

end.

oder korrigieren sie mal dieses code komplett