procedure TForm1.SortButtonClick(Sender: TObject);
Type
  THeader=^integer;
Var
  PList:TList;
  PHeader:Theader;
  i,n,LineLength:integer;
  BufString:String;
begin
MemoSort.Lines[0]:='';
PList:=TList.Create;
i:=0;
n:=0;
PHeader:=nil;
LineLength:=Length(memoX.Lines[0]);
while n<LineLength do
 begin
  inc(i);
  if (i mod 10)=1 then PList.Capacity:=PList.Capacity+10;
  BufString:='';
  while MemoX.Lines[0][n]<>#13 do
   begin
    inc(n);
    if NOT(Char(MemoX.Lines[0][n]) in ['0'..'9']) then break;
    BufString:=BufString+MemoX.Lines[0][n];
   end;
  New(PHeader);
  PHeader^:=StrToInt(BufString);
  PList.Add(PHeader);
 end;
for n := 0 to i-1 do
MemoSort.Lines[0]:=MemoSort.Lines[0]+IntToStr(THeader(PList[i])^)+' ';
end;