AdvStringGrid, пределы значений

[z-wer]

Обращаюсь за помощью к сообществу.
Есть AdvStringGrid. Нужно чтобы в определенных ячейках можно было набрать цифровые значения в пределах от -300 до 300. Иначе ячейка должна очиститься. Оно то вроде как работает, если переходить через энтер - но если заполнять до предела ячейку то число (допустим 50000)
не удаляется.
Вот код двух процедур, которые я так думаю отвечают за это дело

procedure TForm1.AdvGetEditorType(Sender: TObject; ACol, ARow: Integer;
var AEditor: TEditorType);
begin
with AdvStringGrid1 do
if (ARow > 0) then
begin
case ACol of
0: AEditor := edCheckBox;
1: begin
AEditor := edNormal;
MaxEditLength := 6;
end;
2: begin
AEditor := edNormal;
MaxEditLength := 24;
end;
3: begin
AEditor := edNumeric;
MaxEditLength := 5;
AlwaysValidate := True;
end;
4: AEditor := edButton;
end;
end;
end;

procedure TForm1.AdvCellValidate(Sender: TObject; ACol, ARow: Integer;
var Value: String; var Valid: Boolean);
begin
with AdvStringGrid1 do
if (ARow > 0) and (ACol = 3) then
begin
Valid := (Ints[ACol, ARow] > -301) and (Ints[ACol, ARow] < 301);
if not (Valid) then
Value := ' ';
end;
end;

Все редактирование должно происходить в третьей колонке.

Может кто работал с данным компонентом и может подсказать где я напартачил?

[z-wer]

Пока пытаюсь сам разобраться, да и глюки с форумом, ну ежели кто нить надумает чего дельного - подскажите .....

[z-wer]

Спасибо всем, кто не мешал разобраться самому
Может кому и пригодится

procedure TForm1.AdvStringGrid1SetEditText(Se nder: TObject; ACol,
ARow: Integer; const Value: String);
begin
with AdvStringGrid1 do
if ((ARow > 0) and (ACol = 3)) then
begin
if ((Length(Value) > 3) and (StrToInt(Value) > 3000)) or
((Length(Value) > 4) and (StrToInt(Value) < -3000)) then
AdvStringGrid1.Cells[ACol, ARow] := '';
end;
end;