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;