Procedure ConvCadena(Cadena:String);
begin
ShowMessage(FloattoStr(StrtoFloat(Cadena)));
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ConvCadena('012345');
ConvCadena('002345');
ConvCadena('000345');
ConvCadena('000045');
ConvCadena('000005');
ConvCadena('0001.2');
ConvCadena('0000.6');
ConvCadena('012.45');
end;