Cambiar color de texto en un edit
 

Como podria cambiar el color del texto en un edit.
Por ejemplo :
el Texto es el resultado de una resta y quiero que cuando sea negativa se ponga en color rojo.
Lo unico que consigo es que el fondo del edit se cambie de color
ed1 := (a-b) ;
edit1.Text := FloatToStr(ed1) ;
If ed1 < 0 then
Edit1.Color := clRed ;

Edt1.Font.Color := ClRed

Gracias poliburro. Lo he probado y a la verdad no se porque no me funciona.
seguire investigando. Algo estoy haciendo mal.E57 := StrToFloatDef(Edit35.Text,0)+StrToFloatDef(edit36.Text,0)+StrToFloatDef(Edit37.Text,0)+StrToFloatDef (Edit38.Text,0)+StrToFloatDef(Edit39.Text,0)+StrToFloatDef(Edit40.Text,0)+StrToFloatDef(Edit41.Text, 0) ;
Edit57.Text := FloatToStr(e57) ;
if e57 < 0 Then
edit57.Font.Color := clRed ;

Hola marjo!!!

Te aconsejo que uses las etiquetas que correspondan para mostrar código, así quedará más legible.

La propiedad que te han indicado es correcta, ¿seguro que la condición del IF se cumple?

¿?¿?¿?

La verdad que funciona. Pero en la pantalla que lo estoy haciendo no funciona. No se porqué pero encuanto lo averigue os lo haré saber.
Gracias a todos por vuesta ayuda e interes.
Un abrazo.