[Edinora]

Спасибо, помогло, правда не совсем, так что я переделала на :

Код:

procedure TForm3._sg1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
  var s: string;
begin
  if ((length(form1.TeamsArray)<>0) ) then
    if ( (ACol=1) and (ARow>0)) then
    begin
          Form1.TestRec:=Form1.TeamsArray[ARow-1];
          s:=Form1.TestRec.FEmblem;
        if FileExists(Form1.TestRec.FEmblem) then
        begin
          Form3.ImEmblem.Picture.Bitmap.LoadFromFile(s);
          Form3._sg1.Canvas.StretchDraw(Rect,   Form3.ImEmblem.Picture.Graphic);
          Form3.edt1.text:='';
         end
          else
           _sg1.Cells[ACol, ARow]:='-';

    end;
end;