[Delphi7] Odczytywanie Stringów po przecinkach z pliku TXT

Witam. Z góry przepraszam za temat, ale nie wiedziałem jak to nazwać, mianowicie: mam plik tekstowy, w którym dane są zapisane w formacie:
"nazwisko1","imię1","adres1","kod1"
"nazwisko2","imię2","adres2","kod2"
Czy jest możliwość odczytania tych danych i wprowadzenia ich do ListView oczywiście w osobnych kolumnach?

Z góry dziękuję za odpowiedź.
Pozdrawiam.

Ja bym zastosował exploda na przecinki -> jak ? search on forum :)
P.S. mozlliwe ze sa inne sposoby :)

Znalazłem kilka tematów nt Explode, ale niestety mam trochę bardziej skomplikowane zadanie, ponieważ musiałbym rozdzielać Stringi kawałkiem "," , a nie samym przecinkiem, no i ten cudzysłów z końca i z początku linijki musiałby zniknąć.

Wymodziłem coś takiego. Po każdym przejściu pętli masz kolejny string w s1. Możesz z nim zrobić co chcesz.

procedure TForm1.Button1Click(Sender: TObject);
var f:TextFile;
    s,s1:string;
    LastPos,i:integer;
begin
AssignFile(f,'D:\test.txt');
Reset(f);
while not Eof(f) do
      begin
      LastPos:=1;
      readln(f,s);
      s1:='';
      i:=1;
      while i < length(s) do
          begin
          if (s[i] = '"')then
             begin
             LastPos:=i+1;
             inc(i);
             while s[i] <> '"' do begin inc(i) end;
             s1:=Copy(s,LastPos,i-LastPos);
             end;
          inc(i);
          end;
      memo1.lines.add(s1);
      end;
end;

PS. Czemu przed podwójnym cudzysłowem sam się dodał ukośnik?