kGiris :=kAdi.Text;
sGiris := sifre.Text;
dGiris := false;
userData.Open; {Veri tabanında bulunan tabloyu açıyoruz.}
userData.First; {Tablonun ilk verisine gidiyoruz.}
while not (userData.Eof) do begin
if (kGiris = userData['kullaniciadi']) and (sGiris = userData['sifre']) then begin
dGiris := true;
end;
userData.Next;
end;