[Страдалецъ]

Видимо так:

Код:

procedure TForm1.TableDrawCell(Sender: TObject; ACol, ARow: Integer;   
  Rect: TRect; State: TGridDrawState);
var
  i,j:integer;
begin
 if (Plane[ACol,ARowj]>0) 
 then table.Canvas.StretchDraw(table.CellRect(ACol,ARow),bmpArr[Plane[ACol,ARow]]);
end;