Currency editbox text color

Hi All,

I'm trying to get currency editbox text displayed in a specific color when contains minus and plus values
i.e if minus textbox would display the value within as color red, if plus value as color blue.
I couldn't make the following work. Any help please?

procedure Form1_edRunTotalStg1_OnChange (Sender: TObject);
begin
if Form1.edRunTotalStg1.Value < 0 then Form1.edRunTotalStg1.textcolor := clred else Form1.edRunTotalStg1.textcolor := clblue;
end;