Tor444

Подскажите пожалуйста, как вывести сортировку в мемо.
В моем коде видимо что-то неправильно.

type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);


private
{ Private declarations }
public
{ Public declarations }
end;
type
TArray=Array [0..9] of Integer;
var
Form1: TForm1;
a:TArray;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
a:array [0..9]of integer;
i:integer;
begin
for i := 0 to 9 do
a[i]:=Random(10);
Memo1.text:=inttostr(a[i]);
end;


procedure qSort(var A: TArray; min, max: Integer);
var i, j, supp, tmp: Integer;
begin
supp:=A[max-((max-min) div 2)];
i:=min; j:=max;
while i<j do
begin
while A[i]<supp do i:=i+1;
while A[j]>supp do j:=j-1;
if i<=j then
begin
tmp:=A[i]; A[i]:=A[j]; A[j]:=tmp;
i:=i+1; j:=j-1;
end;
end;
if min<j then qSort(A, min, j);
if i<max then qSort(A, i, max);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
qSort(a);
for i:= 0 to 9 do
end;
Memo1.text:=inttostr(a);
end.