[Delphi] Alfabetycznie [dodawanie do pliku]

JAk dodać do pliku tekstowego kilka pozycji(nowych lini), tak aby ułożyły sie alfabetycznie???
np. jest cos takiego::

ala
biały
kot

a ma dodać czerwony i zielony, aby wyglądało tak
ala
biały
czerwony
kot
zielony

A jaki to plik? Tekstowy, rekordy?

Pewnie najlepiej wczytac do tablicy albo StringListy, dodac nowe, posortowac i zapisac.

Ale jak dodajesz pojedyńczo wyrazy to możesz zrobic sobie procedurke sprawdzajaca alfabetycznie plik;

IF nowywyraz[1] > lub

A może zrobić tak:

var
Plik: TStringList;
begin
Plik:=TStringList.Create;
try
Plik.LoadFromFile('bla.txt');
Plik.Add('linia txtu');
Plik.CustomSort(SortujSe);
Plik.SaveToFile('bla.txt')
finally
Plik.Free
end;
end;

SortujSe wygląda tak:

function SortujSe(List: TStringList; Index1, Index2: Integer): Integer;
begin
Result:=AnsiCompareStr(List[Index1], List[Index2])
end;

dzięki
mozna tesh wczytac do listboxa, ustawić ImeSort na Alpha, i Sort na true, bnędzie dodawać alfabetycznie i zapisać :D