procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.Text='' then begin
listbox1.Items.Clear;
end;
listbox1.Items.Clear;
uzun:=length(edit1.Text);
table1.First;
while not table1.Eof do begin
ad:=copy(edit1.Text,1,uzun);
ad1:=copy(Table1Ad.Text,1,uzun);
if(ad=ad1)then begin
listbox1.Left:=240;
listbox1.Top:=60;
edit4.Visible:=false;
checkbox1.Visible:=false;
listbox1.Visible:=true;
listbox1.Items.Add(Table1Ad.Text);
end;
table1.Next;
end;
end;