[Delphi] ListView zapis do txt

Witam,
jak zapisać dane do txt z listview z zachowaniem separatorów np. tabulacji pomiędzy danymi z kolumn.

Proszę o pomoc.
Pozdrawiam.

Google i 2 sekundy szukania.
http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_10076266.html

Strona którą podał RedbaK jest płatna (niektórym dziwnie sie wyświetla u mnie na przykład nie chce) można to zrobić np. tak:

var
  i, j: Integer;
  txt: string;
  sl: TStringList;
begin
  sl:= TStringList.Create;
  try
  for i:=0 to ListView1.Items.Count - 1 do
  begin
    txt:= ListView1.Items.Item[i].Caption;
    for j:=0 to ListView1.Items.Item[i].SubItems.Count - 1 do
      txt:= txt + #09 + ListView1.Items.Item[i].SubItems[j]; //#09 to kod znaku Tab
    sl.Add(txt);
  end;
  sl.SaveToFile('plik.txt');
  finally
  sl.Free;
  end;
end;