Du musst einfach vorher Abfragen ob der Edit leer ist.
Das ist der Quellcode für das EditOnChange:
Delphi-Quellcode:
if trim((Sender as TEdit).Text) <> '' then
Begin
if trim((Sender as TEdit).Text)[1] = '-' then
(Sender as TEdit).Font.Color := clRed
else
(Sender as TEdit).Font.Color := clGreen;
End;
Hoff dann ist der Fehler behoben