Nicht vergessen, die erzeugte Instanz von TOpenDialog wieder freizugeben!
Delphi-Quellcode:
procedure TForm1.OpenFile(Sender: TObject);
var o: TOpenDialog;
begin
o:=TOpenDialog.Create();
if o.Execute then
begin
Image1.Picture.LoadFromFile(o.FileName);
end;
o.Free;
end;