【delphi】DBGrid中插入图片

procedure TMainFrm.GridFriendDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
  Picture:TPicture;
begin
  TDBGrid (Sender).DefaultDrawColumnCell(Rect,3,Column,State);
  if (Column.FieldName = 'F_PIC') then
  try
    Picture:=TPicture.Create;
    Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'1.bmp');
    TTntDbGrid(Sender).Canvas.StretchDraw(Rect,Picture.Graphic   );
  finally
    Picture.Free;
  end;
end;