[__cadetill]

Algo así?

while Pos('.', MiString) <> 0 do
  Delete(MiString, Pos('.', MiString), 1);
MiFloat := StrToFloat(MiString);
MiString := FormatFloat('0.00', MiFloat);