function EncodeB64(aValue: string): string;
procedure codePasword; var aPassword : string; begin aPassword := 'TestPassword'; message_dlg('Ihr Password in Base64: '+EncodeB64(aPassword)); end;