Алгоритм сортировки строк в Memo

[Toha_88]

Доброго времени суток.
Помогите решить проблему. Есть поле MEMO в которое загружаются строки вида: D0328041.023
D0329041.023
T 0430042.023
…
D032904s.023
Как организовать сортировку по первому символу с удалением строк, не удовлетворяющих условию. Пишу:

FOR i:=0 to Memo1.Lines.Count-1 do
        BEGIN
        STemp := Memo1.Lines.Strings[i];
        if STemp = '' Then Break;
        if (STemp[1] <> TIP[t]) then Memo1.Lines.Delete(i);
        END;

Но коректно не работает.
TIP[t] = масив несёт значения D,T,Q,H,W
Спасибо.

[evg_m]

i:=0;
while i<Memo1.Lines.Count do
        BEGIN
        STemp := Memo1.Lines.Strings[i];
        if STemp = '' Then Break;
        if (STemp[1] <> TIP[t]) then Memo1.Lines.Delete(i)
{ после удаления строка с номером i+1 становится с номером i
и общее количество строк уменьшается (поэтому while так как for вычисляет свои 
границы только один раз в начале и в результате имеем неправильные 
границы и нарушение работы программы (AV) )}
else i:=i+1;
        END;

[Utkin]

Toha_88, сортировать строки умеет TStringList.
Вот образец:
http://delphiworld.narod.ru/base/memo_sort.html
А уже потом удаляешь из него все что тебе не нравится.

[Grag]

Класс TStringList умеет сортировать, а класс TStrings умеет еще и удалять... А класс TStringList объединяет в себе свойства класса TStrings...
Toha_88, а вот цикла я бы тебе посоветовал организовывать не в прямом направленнии, а в обратном

FOR i:=Memo1.Lines.Count-1 downto 0 do

Зачем именно так, подумай сам...

[Toha_88]

evg_m, Utkin, Grag - Большое спасибо за помощ!