Как запретить ввод второго символа "-" в StringGrid ?

[Ветас]

Здравствуйте, уважаемые форумчане.

Решаю задачу:
Формируется массив из 10 целых чисел путем ввода с клавиатуры. Числа заносятся в ячейки компонента StringGrid

Подскажите, пожалуйста, как сделать так, чтобы при вводе отрицательного числа в ячейку символ "-" можно было ввести только 1 раз в самом начале ячейки ?

[anGeee]

Хм.. Ну пусть необходимый язык - Delphi....

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = '-' then
    with Sender as TStringGrid do
      if Length(Cells[Col,Row]) > 0 then
        key := #0;
end;

[Ветас]

Большое спасибо за ответ!