procedure sample; begin message_dlg('Ich bin der Benutzer: '+username+' und meine ID ist: '+userid); end;