procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
If (ACOL=2) and (AROW=2) Then
Begin
StringGrid1.Canvas.Font.color := clRed;
StringGrid1.Canvas.TextOut(Rect.Left,Rect.Top,'dsafas');
End;
end;
Rect: TRect; State: TGridDrawState);
begin
If (ACOL=2) and (AROW=2) Then
Begin
StringGrid1.Canvas.Font.color := clRed;
StringGrid1.Canvas.TextOut(Rect.Left,Rect.Top,'dsafas');
End;
end;