[marcoszorrilla]

Otro ejemplo:

Código Delphi [-]
  procedure TForm1.Button1Click(Sender: TObject);
  var
  cCadena:String;
  nNumeroouble;
  begin
  cCadena:='123456789';
  nNumero:=StrToFloat(cCadena) /1000;
  ShowMessage(FormatFloat(',0.000',nNumero)); //Para comprobar el resultado
  end;

Un Saludo.