Undefinierter Bezeichener, aber warum ?

[Äfan]

Ich habe ein Problem. Ich will eine Namensabfrage, wenn ich dies aber so mache, kommt eine Fehler:

procedure TfrmLogin.LoginOKClick(Sender: TObject);
begin
If LoginName.Text = '' then
MessageDlg('Bitte geben Sie einen Namen ein', mtInformation, [mbOK], 0)
end;
begin
If not LoginName.Text = '' then
NameVar := LoginName.Text;
frmLogin.Close;
end;
----------------------------------------------------------------------------------------------
[Fehler] Unit2.pas(46): Undefinierter Bezeichner: 'LoginName'
----------------------------------------------------------------------------------------------

Aber warum kommt der Fehler und wie gehört es richtig ?