Перестановка 2х значного числа

[artemavd]

Добрый вечер! Помогаю тут одному человеку с задачкой. Сама задача: дано 2-х значное число вывести полученные числа при перестановке цифр исходного числа. Я пробовал сделать так:

procedure TForm1.Button1Click(Sender: TObject);
var
 x,y,i: integer;
begin
 y:=StrToInt(Form1.Edit1.Text);
 for i:=11 to 99 do
 begin
 Randomize;
 x:=Random(y);
 Form1.Label3.Caption:=FloatToStr(x);
 end;
end;

Но выводятся просто рандомно числа. Подправьте меня пожалуйста? Ответ надо записать столбиков в ListBox. Заранее спасибо за помощь.

[eoln]

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

дано 2-х значное число вывести полученные числа при перестановке цифр исходного числа.

Может я неправильно понимаю задание, но вроде так:

ListBox1.Items.Add(Edit1.Text);
ListBox1.Items.Add(Edit1.Text[2] + Edit1.Text[1]);

Например дано: 52. Ответ 52 и 25.