procedure TForm1.TypeGridCellValidate(Sender: TObject; Col, Row: Integer;
var Value: String; var Valid: Boolean);
begin
if length(Trim(TypeGrid.Cells[Col,Row])) >= iMaxLen then
Valid := False;
end;
var Value: String; var Valid: Boolean);
begin
if length(Trim(TypeGrid.Cells[Col,Row])) >= iMaxLen then
Valid := False;
end;
StringGrid1.RowHeights[n] :=
StringGrid1.ColWidths[n] :=;