Delphi de sql ile Sorgulama

with QUERY do begin
close; sql.clear;
sql.add('select * from username="'+edit1.text+'" and password="'+edit2.text+'"');
open;
end;
if QUERY.recortcount = 1 then begin
showmessage("kullanıcı işlemi gerçekleşti");
end else begin
showmessage("KULLANICI ADI VE PAROLASI YANLIŞ. Tekrar deneyiniz...");
end;