procedure TForm1.Button1Click(Sender: TObject);
begin
    if OpenDialog.Execute then
     begin
         Image1.Picture.LoadFromFile(OpenDialog.FileName);
     end;
end;