Man könnte es so machen. Man muss nur Folgendes in das Change-Event des Edits reinschreiben
Delphi-Quellcode:
if trim((Sender as TEdit).Text)[1] = '-' then
(Sender as TEdit).Font.Color := clRed
else
(Sender as TEdit).Font.Color := clGreen;
Dann wird wenn das erste Zeichen ein Minus ist der Text Rot eingefärbt. Sogar wenn vor dem Minus noch Leerstellen sind.
Hoffe es hilft.
//Edit wusste nicht das es eine Zahl ist.