drawcell рамка для строки на которой находится выделенная ячейка

[Azam693]

Всем доброго времени суток. Столкнулся с такой проблемой, мне нужно строку, на которой находится выделенная ячейка, обрисовать рамкой.
Первая строка окрашивается нормально, но когда начинаю выделять другие ячейки, то рамка становится ломаной.
Вот картинка 1:

Вот картинка 2:


Вот код процедуры:

procedure Tkachestvo.StringGrid1DrawCell(Send er: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
var i: integer;
begin
with StringGrid1.Canvas,Rect do
begin
if (Arow = StringGrid1.row) then
begin
left:= 0;
bottom:= bottom - 1;
Right:= StringGrid1.width-4;
Brush.Color:= clBlack;
StringGrid1.Canvas.FrameRect(Rect);
end;
end;
end;

[Azam693]

Чё, никто не знает?