Agregar ceros al pincipio de folio

[[egostar]]

Otra manera de hacerlo,

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Cadena: String;
  Caracter: Char;
begin
  Cadena := Edit1.Text;
  If Cadena[1] in ['A'..'Z'] then begin  
     Caracter := Cadena[1];
     Delete(Cadena,1,1);
     ShowMessage(Caracter+Format('%.*d',[6,StrtoInt(Cadena)]));
  end
  else begin
         ShowMessage(Format('%.*d',[7,StrtoInt(Cadena)]));
  end;
end;

Salud OS.