[[kuan-yiu]]

Este código es muy poco claro, edita el mensaje y utiliza la etiqueda de código delphi para hacerlo más legible (y si puedes añade identación).
Se verá así:

Código Delphi [-]
procedure TForm1.btnorClick(Sender: TObject);
begin
  ordenar;
end;