помогите пожалуйста, сортировать в мемо по алфавиту в дельфи!!!

Создаём StringList с автосортировкой. Заносим в него текст из Memo. Он автоматически сортируется. Потом текст из StringList переносим обратно в Memo.

var
MemoText : TStringList;
begin
MemoText := TStringList.Create;
MemoText.Sorted := True; //автосортировка
MemoText.Duplicates := dupAccept; //разрешаем дубликаты

MemoText.Text := Memo1.Text;
Memo1.Clear;
Memo1.Text := MemoText.Text;

FreeAndNil(MemoText); //не забываем освобождать ресурсы
end;