OpenDialog problem beim Klick auf Abbrechen

[thomas2009]

Problem gelöst
das lag an Begin ... end
also
statt

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then 
if ...

muss :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then begin
if ...