procedure TForm1.SearchIndeksClick(Sender: TObject);
begin
 StudInfo.FindNearest([edNrIndeksu.Text]);
end;