[Black_Bear]

Код:

procedure OutMemo(X:array of integer);
var i,N:word;

begin

  N:=High(X);
  for i:=0 to N do
  Form1.Memo1.Lines.Add(IntToStr(X[i]));


end;



procedure TForm1.Button1Click(Sender: TObject);
var A:array[0..4] of integer;
    i,j,N,M:integer;


begin
Memo1.Clear;
 N:=High(A);
A[0]:=5;
A[1]:=3;
A[2]:=2;
A[3]:=1;
A[4]:=4;
for i:=0 to N do
 for j:=N-1 downto i do
   if A[j]>A[j+1]
   then begin
   M:=A[j+1];
   A[j+1]:=A[j];
   A[j]:=M;
   OutMemo(A);
 end;

end;

так тоже работает
и видимо я понял свою оплошность, я не использовал кнопку button,
а вызов писал просто отдельно...