Problem mit OpenPictureDialog

[DeddyH]

Oha, da ist aber Einiges im Argen. Wie ist es so?

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var open: TOpenPictureDialog;
begin
  open := TOpenPictureDialog.Create(nil);
  try     
    if open.Execute then
      begin
        pfad:=open.FileName;
        image11.picture.loadfromfile(pfad);
      end;
  finally
    open.Free;
  end;
end;