Editering i StringGrid og farvelægning?

Til at låse en række op, ville jeg bruge en OnSelectCell event:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  if ARow = 2 then
    StringGrid1.Options := StringGrid1.Options + [goEditing]
  else
    StringGrid1.Options := StringGrid1.Options - [goEditing];
end;

Til at farvelægge ville jeg bruge en OnDrawCell Event:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  Tekst : string;
begin
  if (ACol = 2) and (ARow = 1) then
    StringGrid1.Canvas.Brush.Color  := clRed;
  StringGrid1.Canvas.FillRect(Rect);
  Tekst := StringGrid1.Cells[ACol,ARow];
  DrawText(StringGrid1.Canvas.Handle,PChar(Tekst),StrLen(PChar(Tekst)),Rect,DT_CENTER);
end;

takker - smid et svar

Hermed et svar ;o)