Помогите с процедурой...

[alexBlack]

Сообщение от Arkuz

... Там маленький глюк на сортировке на mark, но я каким то чудесным образом его исправил )))
Спасибо ещё раз.

Да, перепутал 2/3. Должно быть:

procedure TForm1.SortByMarkBtnClick(Sender: TObject);
begin
   Sort(head1, 3);
   PrintList(NameEdit1, NameEdit2, NameEdit3, 3);
end;

procedure TForm1.SortByRateBtnClick(Sender: TObject);
begin
   Sort(head1, 2);
   PrintList(RateEdit1, RateEdit2, RateEdit3, 2);
end;