Kullanıcı Giriş

[Mericx]

Merhaba. Şuan programda kullanıcı giriş ekranı yapmak istiyorum. Editlere girilen Kullanıcı adı ve şifresini de veritabanından çekmesini istiyorum.
Kullandığım Kod; 

  Kullanici_Query.close;
  Kullanici_Query.SQL.Text:='Select * from Kullanici Where ID= ('+QuotedStr(ID.Text)+') and sifre= ('+QuotedStr(Sifre.Text)+')';
  Kullanici_Query.Open;
  if Kullanici_Query.RecordCount = 0 then
  begin
      Application.CreateForm(TForm1,form1);
      Form1.ShowModal;
  end else
  begin
      ShowMessage('Böyle kullanıcı yok');
  end;

Şuan bir hata almıyorum. Ama çalıştırdığımda şifre hatalı da olsa doğru da olsa direk yeni forma geçiyor. Nerede hatam var acaba?