Formatando 0000780 para 7,80

Para converter o conteuro 0000780 para, escreva o seguinte código:

procedure TForm1.Button1Click(Sender: TObject);

var

     conteudo: string;

     Valor: currency;

begin

     conteudo := '0000780';

     Valor := StrToFloat(conteudo) / 100;

      ShowMessage(Format('%m', [Valor]));

end;

Também daria para jogar para um componete TEdit. Ficaria Assim:

procedure TForm1.Button1Click(Sender: TObject);

var

     conteudo: string;

      Valor: currency;

begin

     conteudo := '0000780';

     Valor := StrToFloat(conteudo) / 100;

      edit1.text := Format('%m', [Valor]);

end;