Delphi - Convertir un campo float a string sin el punto decimal

Hola saludos a todos, tengo una pregunta a ver si me pueden ayudar....

Tengo un campo float en la tabla sql, ejemplo:
float sueldobruto ===> 37500.50

y quiero convertirlo en un archivo de texto que me salga
string sueldobruto ===> 3750050

Es decir que me anule el punto decimal... COMO LO HAGO?
ESTOY UTILIZANDO ESTE CODIGO PERO ME SALE CON EL PUNTO DECIMAL...


procedure TFormcontraloria.bbtnGenerarClick(Sender: TObject);
var s: string;
begin
s:=' ';
sueldobruto := format('%17.2F', [qrycontraloriasueldobruto .value]);
S:= COPY(sueldobruto,1,17) + COPY(sueldobruto,17,2);
WHILE POS(' ', S) > 0 DO
S[POS(' ', S)] := '0';
vsueldobruto := format('%-10s', [s]);

end;

Puedes usar la funcion StringReplace, sencilla de usar, ejemplo:

Puedes hacer dos cosas: o lo multiplicas por una potencia de 10 igual al número de decimales, si tienes 2 decimales multiplicas por 100, si tiens 3 por 1000, o Delete en la cadena desde la posición del punto, un carácter.