Benutzerrechte!!!! Wie kann ich veschiedene Rechte setzen??

[Bine]

Ich habe beim Programstart ein Loginfenster, je nach Benutzer steht in der Tabelle ein Wert, (zum Beispiel nicht Löschen!), darauf möchte ich reagieren und ihn nicht LÖSCHEN lassen.

Muß ich Global Variablen setzen und den Wert abfragen??

Zum Beipiel beim Löschen:
<pre>
if (user = 2) then // keine Löscherlaubnis
begin
ShowMessage('Sie haben kein Recht zu löschen , bitte wenden Sie sich an ihren Administrator');
exit;
end;</pre>

<b>Oder gibts andere Vorschläge???</b>

BINE :_)

[Bine]

Wie kann ich das in einer Procedure lösen die dann von allen Forms aufgerufen wird??

BINE :_