Nur Zahlen in TLabeledEdit eingeben

[ferby]

Hallo,

ähnliche Fragen wie meine gibt es schon im Forum,
aber die Frage die ich habe, habe ich leider nicht gefunden.


Problem:

Ein Benutzer soll in ein TLabeledEdit nur Zahlen, ein Minus, und VK_Back eingeben können.


Habe das so gelößt

procedure TForm2.Lab_ed_LeftKeyPress(Sender: TObject; var Key: Char);
begin
if (not (key in ['0'..'9'])) and (key<>'-') and (key<>#8) then key:=#0;
end;


Jetzt mein Problem:

Was ist wenn im Label bereits eine Zahl steht, und der Benutzer drückt die minus Taste?

Also wie stelle ich es an, das nur an der ersten Stelle EIN Minus gesetzt werden kann,
auch wenn bereits eine Zahl da steht??


Gruß,
Ferby