Frage zu "else"

[Sharky]

Hai BackYard,

da fehlt ein begin - end nach der zweiten If-Abfrage

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if Table1.Locate('Username', Edit1.Text, [loCaseInsensitive]) = true then
  begin
    if Table1.Locate('Password', Edit2.Text, [loCaseInsensitive]) = true then
    begin
      MessageDlg('OK. Login succesfully!', mtInformation,[mbOk], 0);
      Form2.ShowModal;
    end
    else
    begin
      MessageDlg('Error. Please Enter .....', mtError,[mbOk], 0);
    end;
  end;
end;

Ich selber schreibe grundsätzlich Begin-End Blöcke. Selbst wenn dazwichen nur eine Codezeile steht. Ich finde das übersichtilicher und es hilft fehler zu vermeiden.

Edit: Nach genauem lesen noch zwei ; eingefügt