[[Caral]]

Hola

Código Delphi [-]
procedure TForm1.BuscaryAbrir1Click(Sender: TObject);
begin
    if OpenDialog1.Execute then
  begin
    CurrentFile := OpenDialog1.FileName;
    SaveStyles;
    Image.Picture.LoadFromFile(CurrentFile);
    RestoreStyles;
  end;
end;

Saludos