procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin with Stringgrid1 do begin if ARow < FixedRows then Canvas.Font.Style:= [fsBold] else Canvas.Font.Style:= []; Canvas.TextRect(Rect, Rect.Left, Rect.Top, Cells[ACol, ARow]); end; end;