uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ShellAPI, Grids, ExtCtrls;

type

　

TfrmMain = class(TForm)

　

btnOpen: TButton;

　

OpenDialog1: TOpenDialog;

　

Image1: TImage;

　

procedure btnOpenClick(Sender: TObject);

private

　

{ Private declarations }

public

　

{ Public declarations }

end;

var

　

frmMain: TfrmMain;

　

implementation

　

{$R *.dfm}