логин и пароль

[CD_SVEN]

Все привет. У меня такая проблема, не как не могу сделать форму с логином и паролем подскажите в чем проблема

procedure TForm8.sBitBtn2Click(Sender: TObject);
var a,s:string;
begin
if (sEdit1.Text='kino') then l:=1 else l:=0;
if (sEdit2.Text='city') then p:=1 else p:=0;
if (p+l)>1 then
alliance.Show
form8.Hide
else showmessage ('Неправильный логин или пароль!!!');
end;
end.

http://puu.sh/8UlMd.png

[ksvsvk]

Чисто навскидку:

procedure TForm8.sBitBtn2Click(Sender: TObject);
var l, p: byte;
begin
  if (sEdit1.Text='kino') then l:=1 else l:=0;
  if (sEdit2.Text='city') then p:=1 else p:=0;
  if (p+l)>1 
  then
    begin
      form8.Hide;
      alliance.Show;
    end
  else showmessage ('Неправильный логин или пароль!!!');
end;