procedure TSubnetDirectHermanice.StringGridDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
R: TRect;
begin
if (Acol = 0) and (ARow > -1) then
      if StringGrid.Cells[3,ARow] = '1' then
      ImageList1.Draw(StringGrid.Canvas, Rect.Left-2 , Rect.Top +4 , 1)
      else
      ImageList1.Draw(StringGrid.Canvas, Rect.Left-2 , Rect.Top +4 , 2);
end;

Sloupec 3 je pomocny(pracovní).
Vykresluje se do sloupce 0.
Pokud bude na řadku ve 3 sloupci 1 vykresli obrazek s komponenty ImageList1 s pozice 1