[angvelem]

Нужно смотреть весь код. Если исходники не секретные, выкладывай.

А этот код можно упростить.

Код:

procedure TFRelEqAddEvent.EventsStringGridDrawCell(Sender:
  TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  with (Sender as TStringGrid).Canvas do
  begin
    //Жирный заголовок
    if ARow = 0 then
      Font.Style := [fsBold]
    else
      Font.Style := [];
    TextOut(Rect.Left + 2, Rect.Top + 2, (Sender as
    TStringGrid).Cells[ACol, ARow]);
  end;
end;