procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if ord(key)=13 then begin
tut:=0;
listbox1.Items.Clear;
listbox2.Items.Clear;
listbox3.Items.Clear;
listbox4.Items.Clear;
listbox5.Items.Clear;
table1.First;
while not table1.Eof do begin
if(edit3.Text=Table1No.Text)then begin
tut:=tut+1;
edit1.Enabled:=true;
edit2.Enabled:=true;
edit3.Enabled:=true;
edit4.Enabled:=true;
edit5.Enabled:=true;
listbox1.Items.Add(Table1AD.Text);
listbox2.Items.Add(Table1Soyad.Text);
listbox3.Items.Add(Table1No.Text);
listbox4.Items.Add(Table1Telefon.Text);
listbox5.Items.Add(Table1Email.Text);
end;
table1.Next;
end;
if tut=0 then begin
showmessage(''+edit3.Text+'numaralı bir kişi bulunmamaktadır..');
edit3.Text:='';
edit3.SetFocus;
end
else if tut<>0 then begin
listbox1.SetFocus;
end;
end;
end;