Zeile von ListView1 in ListView2 "Kopieren"

[Albi]

So, hier meine bisherigen Ergebnisse.

Über den folgenden Code schreibe ich die Daten in die erste ListView.

Code:

With Form14.LVSeaResult Do
  Begin
   While Not Form1.QSeaStPrint.Eof Do
      Begin
        For i := 0 To pred(Form1.QSeaStPrint.FieldCount) Do
        Begin
          If i = 0 Then
          Begin
            ListItem := Items.Add;
            ListItem.Caption := Form1.QSeaStPrint.Fields[0].asString;
          End
          Else
            Begin
              ListItem.SubItems.Add(Form1.QSeaStPrint.Fields[1].asString);
              ListItem.SubItems.Add(Form1.QSeaStPrint.Fields[2].asString);
              ListItem.SubItems.Add(Form1.QSeaStPrint.Fields[3].asString);
              QPLZOrtSQL('Select * from "'+DBPath+DBPlz+'" WHERE ID = '+IntToStr(Form1.QSeaStPrint.Fields[4].AsInteger));
              ListItem.SubItems.Add(Form1.QPLZOrt.FieldByName('Plz').AsString);
              ListItem.SubItems.Add(Form1.QPLZOrt.FieldByName('Ort').AsString);
            end;
        End;
        Form1.QSeaStPrint.Next;
     End;

Ich habe es mich Assign versucht aber da habe ich nur alle Zeilen kopieren können, dann habe ich es mit folgenden Code versucht.

Code:

Form14.LVSeaPrint.Items.Add.Caption:= Form14.LVSeaResult.ItemFocused.Caption;

Hiermit bekomme ich schon mal die 1. Spalte ordentlich übertragen.

Und dann bin am Ende mit meinem Latein, entweder ich bekomme ne Fehlermeldung oder es passiert garnicht und ich es ahne es schon, die Lösung ist soeinfach.