запрет на минус не вначале цифры в edit

[13xXx13]

Delphi. Как сделать запрет на минус не вначале цифры в edit? поправьте пожалуйста код.

имеется код:

{ защита поля редактирования на ввод числа }
case key of
'0'..'9',chr(8):;
',': if pos(',',edit1.text)>0 then key:=chr(0);
'–': if length( edit1.text)>0 then key:=chr(0);
chr(13): edit2.SetFocus;
else key:=chr(0);
end;

и по возможности исправить чтоб запятую вначале нельзя было ставить.

[ViktorR]

Если коротко, то в части минуса и запятой сделал так, например:

procedure TForm1.Edit1Change(Sender: TObject);
begin
   if Edit1.Text = ',' Then // Запятая не может быть в начале числа
      Edit1.Text := '';
   if ((Length(Edit1.Text) > 1) and (Edit1.Text[Length(Edit1.Text)] = '-')) Then
   begin // Минус не может быть в середине числа
      Edit1.Text := Copy(Edit1.Text, 1, Length(Edit1.Text) - 1);
      Edit1.SelStart := Length(Edit1.Text);
      Edit1.SelText := '';
   end;
end;

end.

Но... Запятых может быть несколько, тут следует доработать
и о том, что это только цифры следует позаботиться.

В принципе, если нужна проверка на правильность ввода вещественного числа, то лучше глянуть на пример в книге:
В.В. Фаронов, DELPHI. Программирование на языке высокого уровня, 2005 г., стр 299.

var OldText: String; // Это описание следует поместить в секцию private класса формы
procedure TForm1.Edit1Change(Sender: TObject);
begin
   if Edit1.Text <> '' Then
    try
      StrToFloat(Edit1.Text);
      OldText := Edit1.Text;
    except
// Ошибка преобразования. Восстановим прежний текст
// Курсор в конец текста
      Edit1.Text := OldText;
      Edit1.SelStart := Length(Edit1.Text);
      Edit1.SelText := '';
   end;
end;

end.

Как то так ...

[13xXx13]

спасибо за помощь