как заполнить массив данными из мемо для сортировки слиянием

Так пойдет?

var
 tmp:TStringList;
begin
 tmp:=TStringList.Create;
 tmp.Assign(Memo1.Lines);
 tmp.CustomSort(Sort);
 Memo1.Lines.Assign(tmp);
 FreeAndNil(tmp);