como eliminar el caracter cero a la izquierda

[[egostar]]

Algo así

Código Delphi [-]
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;

Salud OS.