procedure TForm1.SearchIndeksClick(Sender: TObject);
begin
 StudInfo.SetKey;
 StudInfo.FieldByName('NrIndeksu').AsString := edNrIndeksu.Text;
 StudInfo.GotoNearest;
end;