Строки в Delphi: строка символов, состоящая из десятичных цифр, разделенных пробелами. Вывести числа в возрастающем порядке

[Dashylia]

НЕ могу понять как это сделать((( Если не трудно помогите

Дано строка символов, состоящая из произвольных десятичных цифр, разделенных пробелами. Вывести на экран числа этой строки в порядке возрастания их значений.

[Stilet]

Малость грубовато но можно:

program Project1;

{$APPTYPE CONSOLE}

uses    classes,
  SysUtils;
var s:TStringList;i:integer;  l:TList;
 function c(Item1, Item2: Pointer): Integer;
 begin
    if integer(Item1)>integer(Item2) then Result:=1 else
    if integer(Item1)<integer(Item2) then Result:=-1 else
    Result:=0;
 end;

begin
 s:=TStringList.Create;
 s.DelimitedText:='1 4 7 3 56 78 32';
 l:=TList.Create;
 for i:=0 to s.Count-1 do l.Add(Pointer(StrToIntDef(s[i],0)));
 l.Sort(c);
 for i:=0 to l.Count-1 do write(integer(l[i]):10);
 writeln;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Идея понятна?

[Dashylia]

procedure TForm2.FormActivate(Sender: TObject);
begin
  ComboBox1.SetFocus;
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
 Form2.Close;
end;

procedure TForm2.ComboBox1Click(Sender: TObject);
  Var
A: array[1..100] of integer;
S,t: string;
  i,k:integer;
  x,p,n,nst:integer;
f:boolean;
begin
s:=' '+s;
n:=1;
For i:=2 to length(s)-1 do
begin
if (s[i]<>' ') and (s[i+1]<>' ') and (s[i-1]=' ')  then begin A[n]:=strToInt(s[i]);
n:=n+1;
end;
end;
repeat
F:=false;
for i:=1 to n do
if a[i]>a[i+1] then begin
x:=a[i];
a[i]:=a[i+1];
a[i+1]:=x;
f:=true;
end;
until f=false;
   t:=' '+t;
 for i:=1 to n do
 begin
 t:=IntToStr(A[i])+t;
 t:=' '+t;
 end;
  Label2.Caption := IntToStr(A[i]);
end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.