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;