unit imagen;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TFormaImagen = class(TForm)
    Imagen: TImage;
    Shape1: TShape;
    Panel1: TPanel;
    Bevel9: TBevel;
    Bevel10: TBevel;
    Bevel11: TBevel;
    Label3: TLabel;
    Panel2: TPanel;
    procedure Panel2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormaImagen: TFormaImagen;
procedure abreimagen(archivo:string);
implementation

{$R *.DFM}

procedure abreimagen(archivo:string);
begin
with FormaImagen do
begin
if FileExists(archivo) then
begin
Imagen.Picture.LoadFromfile(archivo);
FormaImagen.ShowModal;
end
else
MuestraMensaje('No Tiene Imágen');

end;
end;

procedure TFormaImagen.Panel2Click(Sender: TObject);
begin
Close;
end;

end.