procedure TForm1.SearchNazwiskoClick(Sender: TObject);
begin
 StudInfo.IndexName := 'NazwInd';
 StudInfo.SetKey;
 StudInfo.FieldByName('Nazwisko').AsString := edNazwisko.Text;
 StudInfo.GotoNearest;
end;