Das läuft so trotzdem nicht, Sharky
Zumindest die Zeile
MessageDlg('OK. Login succesfully!', mtInformation,[mbOk], 0)
benötigt ein abschließendes Semikolon. Besser wäre es, wenn die darauf folgende Zeile auch eine bekommen würde, auch wenn das End dahinter es nicht verlangt.
@BackYard:
Der Fehler kommt daher, daß Delphi in der Zeile vor einem End nicht zwingend ein Semikolon als Zeilenabschluß verlangt und es vor Else sogar verbietet. Du hast in der Zeile mit dem MessageDlg keines gemacht, daher kommt Delphi mit der nächsten Zeile durcheinander und meckert. Entfernst du sie, stimmt wieder alles, da vor else kein Semikolon stehen darf.
Axel Sefranek
A programmer started to cuss, cause getting to sleep was a fuss.
As he lay there in bed, looping round in his head
was: while(!asleep()) ++sheep;