[lmikle]

Вот так работает быстро, только не знаю, все-ли отрисовывает - это надо данные знать:

Код:

procedure TForm1.TableDrawCell(Sender: TObject; ACol, ARow: Integer;   //Ïåðåðèñîâêà òàáëèöû
  Rect: TRect; State: TGridDrawState);
var
  Bitmap: TBitmap;
  i,j:integer;
begin

 if ARow = 0 Then Exit;
 if (Plane[ARow,ACol]>0) then begin
  Bitmap:=TBitmap.Create;                                //Ñîçäàíèå ïåðåìåííîé òèïà Tbitmap
  Bitmap.LoadFromFile('Resourses\Images\'+inttostr(Plane[ARow,ACol])+'.bmp'); //Çàãðóçêà èçîáðàæåíèÿ ñîñòîÿíèÿ â ïåðåìåííóþ
  table.Canvas.StretchDraw(table.CellRect(ACol,ARow),Bitmap);  //Çàïîëíåíèå âûáðàííîé ÿ÷åéêè èçîáðàæåíèåì
  Bitmap.Free;                                           //Îñâîáîæäåíèå ïåðåìåííîé
  end;
end;