Помагите орешать задачу!!!

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
const
  Nums = 6;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    Panel1: TPanel;
    Button2: TButton;
    GroupBox1: TGroupBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Num: array [1..Nums] of integer;
    procedure PlaceNum(i: integer);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.PlaceNum(i: integer);
var
  j, x: integer;
  s: string;
begin
  for j := 1 to Nums do      // пробуем каждое значение для данного элемента
  begin
    Num[i] := j;
    x := 1;               // проверим его значение на уже_существование
    while (x < i) and           // пока проверяемый до данного и...
      (Num[x] <> Num[i]) do     // не равны то делать...
        Inc(x);                 // берём следующего на проверку
    if x = i then           // если всех проверели...
    begin
      if i = Nums then         // если это был последний
        begin
          s := '';                  // комрануем
          for x := 1 to Nums do s := s + IntToStr(Num[x]) + '  ';
          ListBox1.Items.Add(s);    // и выводим
        end
        else PlaceNum(i + 1); // иначе пустим проверку следующего
    end
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Clear;
  PlaceNum(1);   // перебираем с первого элемента
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Close();
end;
 
end.