Zugriffsverletzung bei Adresse *** in Modul '*.exe'.

[mädibo]

hallo leute,

ich weiss, es gab schon einige Einträge zu diesem Thema, aber geholfen hat keiner.

ich mache ein programm, bei dem man sich als administrator anmelden kann. dabei gibt man den Username und das PW ein.

der code sieht wie folgt aus

Delphi-Quellcode:

procedure TFormAdmin.sbAdminClick(Sender: TObject);
var user, pw: string;
begin

user := edAdminUser.Text; //editfeld für Username eintrag
pw := meAdminPW.Text;     //maskedit feld für PW

UnitLogin.FormLogin.TAdmin.Active := false; //die Tabelle ist im objkt.inspector auf true gesetzt
UnitLogin.FormLogin.TAdmin.Filtered := false;
UnitLogin.FormLogin.TAdmin.Filter := 'User = '+QuotedStr( user );
UnitLogin.FormLogin.TAdmin.Filtered := True;
UnitLogin.FormLogin.TAdmin.Open;

    if ((edAdminUser.Text = 'mad') AND ( meAdminPW.Text = '1234' )) OR ( pw = UnitLogin.FormLogin.dbePW.Text ) then
    begin
        showmessage('Eingabe korrekt. Sie wurden als Administrator angemeldet.');   //information an den Benutzer
        btAdminOK.Enabled := true;                //wird freigegeben.
        sbAdminLogin.Enabled := true;             //als Admin kann man weitere Admins erstellen.
        ok := 1;

    end

    else
    begin
        showmessage('Der Benutzername oder das Passwort stimmt nicht. Versuchen Sie es erneut.');
        ok := 0;
    end;
end;

'ok' wird in der Funktion isOk übergeben und isOk auf true gesetzt, wenn ok = 1
als admin kann man die einstellungen ändern und neue benutzer erfassen.

ich hoffe jemand kann mir helfen

mfg mark