Delphi - Formato para string numérico URGENTE!!

Hola listeros, soy novata programando en delphi y tengo un problema en estos momentos para formatear un string númerico que provee el usuario y que debe ser mostrado con el formato correcto.

La idea es que si un usuario introduce: 1251530,40 esta información aparezca formateada de la siguiente manera: 1.251.530,40. Esto se hace directamente en la celda de un grid. Pero en vez de ello me aparece 1.25 . , ;lo cual me genera un error.

La instrucción que uso es FormatMaskText, pq es lo único que hasta ahora, he conseguido sea lo más correcto para formatear un dato string numérico.

st_grid.cells[columna,fila]:= formatmasktext('999.999.990,00',st_grid.cells[columna,fila];

si alguien sabe como puedo cambiar el formato o cómo se debe hacer la asignación de manera correcta por favor digámelo, es urgente y estoy comenzando a entrar en desesperación.
Gracias.

// Cambia '999.999.990,00' por '#,##0.00' y tomas la entada del usuario en el evento GetEditMask

procedure TForm1.st_gridGetEditMask(Sender: TObject; ACol, ARow: Integer;
var Value: String);
var x: integer;
begin
for x:= 0 to st_grid.ColCount -1 do
if st_grid.Cells[ACol, x] = 'Precio' then // dependiendo del nombre de la columna
Value := '#####.##0,00';
// [acol,x] debes recorrer toda la matriz de st_grid para formatear todo el st_grid
end;

Muchas gracias, esto me ha ayudado mucho