table1.First;
while not table1.Eof do begin
if (Table1Numarasi.Text=edit1.Text)then begin
edit2.Text:=Table1Adi.Text;
edit3.Text:=Table1Soyadi.Text;
edit7.SetFocus;
end;
table1.Next;
end;