onkeypress olayı tetiklenmeden aktif oluyor yardım

[mobilepack]

üstatlar edit için de query den arama yaptırıyorum query nin open komutunu edit1 keypress ine koydum ama ben enter a basmadan edit içine değeri girerken komut aktif oluyor engin tecrübenizden bana yardımcı olursanız sevinirim

kodlar aşağıda

if key=#13 then
groupbox5.Visible:=true;
dm.hastakart.Close;
dm.hastakart.Sql.Clear;
dm.hastakart.Sql.Add('select * from hastakart where protocol like "%'+Edit1.Text+'%"');
dm.hastakart.Open;
groupbox5.Visible:=true;
edit1.Visible:=false;

[gorecelik]

if key=#13 then
groupbox5.Visible:=true;
dm.hastakart.Close;
dm.hastakart.Sql.Clear;
dm.hastakart.Sql.Add('select * from hastakart where protocol like "%'+Edit1.Text+'%"');
dm.hastakart.Open;
groupbox5.Visible:=true;
edit1.Visible:=false;

if key=#13 then
begin
groupbox5.Visible:=true;
dm.hastakart.Close;
dm.hastakart.Sql.Clear;
dm.hastakart.Sql.Add('select * from hastakart where protocol like "%'+Edit1.Text+'%"');
dm.hastakart.Open;
groupbox5.Visible:=true;
edit1.Visible:=false;
end;

if deyimini eğer tüm bu kodlar için kullandıysan begin ve end arasına alman lazım begin ve end kullanmazsan sadece ifden sonraki ilkl işlemi if deyiminin altına atar. kolay gelsin

[mobilepack]

hocam ellerin dert görmesin cok kucuk bir nuans ama insan bazen kor oluyor bu işte teşekkurler