Hola rufo.
Se le puede dar una solución similar a lo que tratamos
aquí
Ejemplo:
Código Delphi
[-]
var
S: TSmallPoint;
begin
S.x:= Ord(ThousandSeparator);
S.y:= Ord(DecimalSeparator);
ThousandSeparator:= ',';
DecimalSeparator:= '.';
Memo1.Lines.Add(FormatFloat('#,##0.00',1525.15));
Memo1.Lines.Add(FormatFloat('#,##0.00',25312.33));
...
ThousandSeparator:= Chr(S.x);
DecimalSeparator:= Chr(S.y);
end;
Saludos.