Ограничение знаков после запятой,StringGrid

[Gorin]

Добрый всем день.
Надо мне, чтобы при вводе в ячейку, можно было вводить только два знака после запятой.
я засунул в событие OnKeyPress
...
if Pos(',',Text) <> 0 then begin
if Length(Text)- Pos(',',Text) > 2 then Key := Chr(0);
...
Однако в переменную Text попадает Form1.Caption
Не подскажите как правильно указать, что надо брать текст из текущей ячейки, или подсказать другой способ.

[UnD)eaD)Snake]

можно использовать maskedit, и задать маску для ввода

[Stilet]

Вместо Text пробуй StringGrid.cells[Strinnggrid.col,StringGrid.row]

[Gorin]

Спасибо
Теперь возник вопрос посложнее. Мне надо чтобы цифры в строках делились на порядки. Если это сделать с помощью FormatFloat, то обратно он в Float он уже не конвертирует, соответсвенно вычисление невозможно. Можно ли решить это проблему с помощью EditMask?

[Alex21]

THOUSANDSEPARATOR

[Gorin]

Простите, но, как я понял, данный параметр лишь задает разделитель, однако все равно необходимо форматировать.

[Stilet]

Конвертить все равно, но при конвертации THOUSANDSEPARATOR должен учитываться автоматом

[Gorin]

Тогда вопрос, как конверитровать обратно во Float?

[Stilet]

Например в цикле поубирать из строки THOUSANDSEPARATOR, а потом уже и конвертить.

[Gorin]

Вот пытаюсь реализовать данную задачу.
THOUSANDSEPARATOR:=' ';
Вот удаление разделителей:

Procedure TForm1.StringGrid1GetEditText(Sender: TObject; ACol,
  ARow: Integer; var Value: String);
var
prbl:string;
frm:real;
begin
prbl:=StringGrid1.Cells[Acol,Arow];
while Pos(' ',prbl)> 0 do Delete(prbl,Pos(' ',prbl),1);
StringGrid1.Cells[ACol,Arow]:=prbl;
end;

Вот соотвественно форматирование

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
var
frm:real
begin
... //Вычисления
...
//собственно форматирование
begin
if StringGrid1.Cells[ACol,ARow]<>'' then  begin
frm:=StrToInt(StringGrid1.Cells[ACol,Arow]);
StringGrid1.Cells[ACol,ARow]:=FormatFloat('###0,00;',frm);
end;
end;

В результате вылетает ошибка Stack Overflow. Что неправильно?