Problemas con FormatFloat

[jsanchez]

Hola Foro.

Feliz Navidad.

Mi problema es el siguiente, en un parantalla de facturación quiero que al digitar un monto y salir del edit se me formatee con comas y puntos. Utilizo el siguiente codigo

procedure TfrmFacturaNueva.edValorDolaresExit(Sender: TObject);
var
        ed : tRightEdit;
begin
   ed:=sender as tRightEdit;
   ed.Text:=FormatFloat('#,##0.00', strToFloat(ed.Text));	
end;

El caso es que la salida queda así: "3 000 000.00", evidentemente no me sirve porque cuando pasa de nuevo por ahí el cursor, me da un error diciendome que no puede convertir eso a float, normal.

Alguien podría decirme porque me formatea mal?

La configuración regional de la computadora está bien, ',' para miles y '.' para decimales.

Muchas gracias.