Cambiar color de texto en un edit

[marjo]

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 ;