Код приложения «Графический образ»

procedure TForm2.Button1Click(Sender: TObject);

begin

   if OpenPictureDialog1.Execute then

 // Если диалог отработал  Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

end;

end.

Для очистки рисунка можно использовать обработку:

    Image1.Picture:=nil;