[RAZDVATRITASHI]

Сор сразу за нубский вопрос)
Мне нужно закрасить 3 ячейки drawgrid так, что бы закрасились выбранная ячейка, ячейка которая правее и ячейка, которая ниже на 1. Что я не так написал:

Код:

 procedure TForm1.drwgrd1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
drwgrd1.Canvas.Brush.Color:=clBlue;
drwgrd1.Canvas.FillRect(drwgrd1.CellRect(drwgrd1.Col,drwgrd1.Row));
drwgrd1.Canvas.FillRect(drwgrd1.CellRect((drwgrd1.Col+1),drwgrd1.Row));
drwgrd1.Canvas.FillRect(drwgrd1.CellRect(drwgrd1.Col,(drwgrd1.Row+1)));
end;

Админ: Пользуемся тегами для оформления кода!