ListView ganze reihe in zwischenablage kopieren

[SyntaxXx]

Guten Abend zusammen,
ich habe nun noch eine kleine Frage bezüglich der ListView Komponente.

Und zwar habe ich eine ListView mit 4 SubItems.
Jetzt möchte ich beim klicken auf einen Button, das er die ausgewählte Row also alle 5 Felder
(1x Form1.ListView1.Items.Item[i].Caption & 4x Form1.ListView1.Items.Item[i].Subitems.Add())
in die zwischenablage kopiert.

Leider habe ich es bis jetzt nur hin bekommen, das er entweder nur die erste Spalte, oder die 4 anderen kopiert, aber nie beides gleichzeitig.
Ein weiteres Problem ist, das wenn ich die 4 SubItems kopiere und z.b. in ein Textdokument einfüge, das mir die Werte in den Spalten untereinander ausgegeben werden, obwohl sie ja in der Row nebeneinander stehen.

Könnt ihr mir vielleicht sagen, wie ich das genau machen muss?

[sx2008]

Delphi-Quellcode:

const
  TAB = #8;
var
  li : TListItem;
  line : string;
  i : Integer;
begin
  li := ListView1.Selected;
  if not Assigned(li) then
    exit;  // nichts selektiert
  // Zeile mit Tabulator als Trennzeichen bilden
  line := li.Caption;
  for i := 0 to li.SubItems.Count-1 do
    line := line + TAB + li.SubItems[i];
  Clipboard.AsText := line;  // ab ins Clipboard

[SyntaxXx]

Erstmal danke für deine Antwort, habs jetzt mal übernommen, doch leider bekomme ich so immer nur die zweite Spalte ausgegeben. Bzw er speichert nur die zweite Spalte.

EDIT:

Sry war mein Fehler, jetzt gehts.

Aber leider wird mir statt nem Tab ein ausgegeben.
Ist das richtig so?

Edit2:

Soa nun geht alles. Hab einfach dem "TAB" ein " " zugewiesen.

[omata]

Kleine Korrektur...

Delphi-Quellcode:

const
  TAB = #9;
var
  li : TListItem;
  line : string;
  i : Integer;
begin
  li := ListView1.Selected;
  if Assigned(li) then begin
    // Zeile mit Tabulator als Trennzeichen bilden
    line := li.Caption;
    for i := 0 to li.SubItems.Count-1 do
      line := line + TAB + li.SubItems[i];
    Clipboard.AsText := line;  // ab ins Clipboard
  end;
end;