Button Login Untuk Delphi 7

Button login

begin

  ADOQuery1.Close;

  ADOQuery1.SQL.Clear;

  ADOQuery1.SQL.Add('select * from login where user =:user and password =:pass');

  ADOQuery1.Parameters.ParamByName('user').Value:=Edit1.Text;

  ADOQuery1.Parameters.ParamByName('pass').Value:=Edit2.Text;

  ADOQuery1.Open;

  if ADOQuery1.RecordCount<=0 then

  begin

    MessageDlg('login tidak berhasil',mtInformation,[mbok],0);

    Edit1.Text:='';

    Edit2.Text:='';

  end else

  begin

    Form4.Hide;

     Form3.Show;

  end;

end;