Login og logout nem spørgesmål

Hej alle eksperter.


Jeg sider her og  har lavet en program som skal have en login funktion og en logout evt.¨'

Jeg har labels og to editbokse og en button.

Scenarie:.

1:....brugeren indtaster navn og adganskode (i editbokse)
og trykker derefter på login knapen

2.... Systemet logger kunden ind hvis oplysningerne er rigtigt og ellers er det en popup boks med besked "fejll"


ps. det skal være mulligt at have flere bruger!!
-------------------------------------------------------



jeg har noget lign som det her  :

procedure TForm1.LbSpeedButton5Click(Sender: TObject);
begin
if Edit2.Text = 'abc123' then    // her er koden for programmet
else        // hvis ikke koden er rigtigt så--
ShowMessage('Den indtastede kode var forkert!!!');  // bliver besked vist

close;  //og programmen lukkes
end;

men jeg syndes hellere ikke selv den er god.

jeg vil være meget glad hvis i har nogle forslag til et evt ny måde at gøre det på!!!!!!!!!