hsr//////////////////////////////////////////////////////
예전에 답변하던건데요
스트링그리드의 틍정한 셀(아래는 1,1입니다)에 30자이상은 못들어 가도록 할경우
다른 좋은방법도 있겠으나 아래것도 참조해보세요
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
ARow: Integer; const Value: String);
begin
   if (StringGrid1.Row = 1)and(StringGrid1.Col = 1) then begin
      IF length(Value)>30 then StringGrid1.Cells[ACol,ARow] := copy(Value,1,30);
   end;
end;

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
   if (StringGrid1.Row = 1)and(StringGrid1.Col = 1) then begin
      if (not(Key in [#8])) and (length(StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row]) >= 30) then
          Key := #0
   end;
end;