begin
HideCaret(GetActiveWindow);
....
end.

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;

MyStringGrid.Free;
MyStringGrid := TStringGrid.Create(Sender);

procedure TMainForm.FormCreate(Sender: TObject);
var
 i1: Integer;
 p, px: ^Integer;
begin
 Lst := TList.Create;
 i1 := 124; // число, которое будем выводить
 p := @i1;
  Lst.Add(p);

 px := Lst.Items[0]; // получили указатель из списка
 MM.Lines.Add(IntToStr(px^));
end;

procedure TMainForm.FormClick(Sender: TObject);
var
 p: ^Integer;
begin
 p := Lst.Items[0];
 ShowMessage((IntToStr(p^)));
end;

    type 
      TPtr=^TPList;
      TPList=Record
        Value:Integer;
        Next:TPtr;
        Prev:TPtr;
      end;
     
    <...>
     
    Procedure MergeSort(var PFirst: TPtr);
    <...>