[lmikle]

Разрешить ввод знака - только если он вводиться на первом месте и если его еще нет.

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key In['0'..'9',#8,'-']) then
begin
  MessageDlg('Bla-bla-bla!',mtError,[mbOk],0);
  key:=#0;
end;
If Key = '-' Then
  Begin
    If (Edit1.SelStart <> 1) Or (Pos('-',Edit1.text) > 0) Then
      Begin
         Key := #0;
      End;
  End;

end;