procedure TForm1.Button3Click(Sender: TObject);
var
 t: TStringList;
begin
 // создаем
 t:=TStringList.Create;
 // присваиваем переменной t строки из Memo
 t.AddStrings(memo1.lines);
 // сортируем
 t.Sort;
 memo1.Clear;
 // присваиваем memo уже отсортированные строки
 memo1.Lines.AddStrings(t);
end;