Hola de nuevo.
A ver, probá de este modo:
Código Delphi
[-]
...
var
wprecio_venta,
wpreciomodificar2: Double;
aux: string;
begin
wprecio_venta:= 123456.25;
SGFact.Cells[3,Cuenta]:= FormatFloat('#.##,##',wprecio_venta);
aux:= SGFact.Cells[3,Cuenta];
Delete(aux,Pos('.',aux),1);
Caption:= aux;
wpreciomodificar2:= StrToFloat(aux);
...
Un saludo.
