procedure TForm1.Button1Click(Sender: TObject);
var
Bmp: TBitmap;
begin
opendialog1.Execute;
Bmp := TBitmap.Create;
Bmp.LoadFromFile(opendialog1.Filename);
advstringgrid5.AddBitmap(6,1,bmp,True,haCenter,vaCenter);
advstringgrid5.Refresh;
advstringgrid5.Cells[6,1]:= opendialog1.Filename;
end;
var
Bmp: TBitmap;
begin
opendialog1.Execute;
Bmp := TBitmap.Create;
Bmp.LoadFromFile(opendialog1.Filename);
advstringgrid5.AddBitmap(6,1,bmp,True,haCenter,vaCenter);
advstringgrid5.Refresh;
advstringgrid5.Cells[6,1]:= opendialog1.Filename;
end;