2 Listviews per Drag ´n Drop füllen

[needatip]

Hallo,
ich habe 2 Listviews, die ich mit dem Inhalt von Datenbankfeldern fülle.
Anschließend möchte ich mittels Drag `n Drop die Felder aus der ListView1 in die SubItems der ListView2 ziehen.
Ich brauche das für einen Dateiimport und der manuellen Zuordnung von Feldern (Fieldmapping).

ListView1 hat eine Spalte mit den Feldern der Tabelle Import.
ListView2 hat zwei Spalten mit den bereits vorhandenen Feldern und eines für die Zuordnung.
Jetzt möchte ich die Feldnamen aus der ListView1 in die ListView2 ziehen.
Diese sollen dann als Subitems hinter die selektierten Werte in ListView2 als Subitems erscheinen.
Zuletzt möchte ich dann die ListView2 (Spalte 1 und Spalte2) auslesen und daraus eine SQL Funktion basteln.

so in etwa soll das Ergebnis aussehen!

LISTVIEW1
FELDER
------
NAME
STRASSE
PLZ
ORT


LISTVIEW2
FELDER......ZUORDNUNG
---------------------
NR
FIRMA
NAME1.......NAME
NAME2
STRASSE.....STRASSE
LAND
PLZ.........PLZ
ORT.........ORT


Ebenso soll es die Möglichkeit geben, die Zuordnung der Felder zu löschen.
das habe ich mir so gedacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
  for i := 0 to ListView2.Items.Count -1 do
    ListView2.Items.Item[i].SubItems.Clear;
    ListView2.Refresh;
end;

Wer kann mir bei dieser Aufgabenstellung behilflich sein?