Вывод данных из списка TList в редактор Memo

type 
  PDouble = ^Double; 
Function Comp(Iteml, Item2:. Pointer): Integer; 
// С помощью этой функции реализуется сортировка чисел 
begin 
  if PDouble(Iteml)^ < PDouble(Item2) ^ then 
  Result := -1 else 
  if PDouble(Iteml^ > PDouble (Item2) ^ then 
  Result := 1 else 
  Result := 0 
end; 
 
  
procedure TfmExample.bbRunClick(Sender: TObject); 
// Обработчик нажатий кнопки bbRun выполняет основную работу 
var 
  k: Integer; 
  List: TList; 
  pD: PDouble; 
begin 
  List := TList.Create; // Создаем список 
  for k := 1 to 20 do // Наполняем его 
   begin 
     New(pD); // Резервируем память 
     pD^ := Random; // Помещаем в нее случайное число 
     List.Add(pD); // Добавляем к списку 
   end;
  List. Sort (Comp) ; // Сортируем список по возрастанию 
   mmOutput.Lines.Clear; 
  { Очищаем редактор mmOutput. В следующем цикле наполняем mmOutput и уничтожаем элементы List } 
  for k := 0 to List.Count-1 do 
    begin 
      pD := List[k]; // Очередное число из списка 
      mmOutput. Lines .Add (FloatToStr (pD^ ); 
      {Помещаем в mmOutput} 
      Dispose(pD) // Уничтожаем число 
    end; 
  List.Free; // Уничтожаем список 
end;