Ограничение ввода символов. Delphi

[Alex_2017]

Дана таблица 2хn.N кол-во столбцов которое меняется. Причем 1-ая строка и 1-ый столбец нередактируемы. Помогите пожалуйста написать код, чтобы нельзя было вводить в яйчейках минусов больше одного, более одной запятой и вводить эти знаки только в положенных местах. Т.е. нельзя было написать 67----55 ,89-.

Вот часть кода который я сделал. В архиве программа полностью. Заранее Спасибо.

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9','.',',',#13,' ','-']) then begin
Key:= #0;
key:= #8;
end ;
if key='.' then key:=',';
if key=#13 then
if StringGrid1.col<StringGrid1.ColCoun t-1 then StringGrid1.col:=StringGrid1.col+1
else StringGrid1.col:=1;
end;