procedure TForm1.OrderByNameClick(Sender: TObject);
begin
 StudInfo.IndexFieldNames := 'Nazwisko';
end;