1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm3.addtolistClick(Sender: TObject);
begin
//Übertragen der Einträge in Listboxen
  form1.listbox1.Items.Add(neuereintrag.Text);
  form1.ListBox2.Items.Add(benutzername.Text);
  form1.listbox3.Items.Add(passwort.Text);
  form1.ListBox4.Items.Add(programmname.Text);

//Übertragen der Listboxeneinträge in die Listview
  with form2.ListView1.Items.Add do
  begin
   subitems.Add(form1.listbox1.Items);
  end;


form3.Close;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

procedure TForm2.Button3Click(Sender: TObject);
var z:              Integer;
    LoadList, Line: TStringList;
    NewListItem:    TListItem;
begin
  if (OpenDialog1.Execute) then begin
    listview1.Clear;
    LoadList := TStringList.Create;
    Line := TStringList.Create;
    try
      LoadList.LoadFromFile(OpenDialog1.FileName);
      for z := 0 to Pred(LoadList.Count) do begin 
        Line.CommaText := LoadList.String[z]; 
        if (Line.Count = 0) then 
          Line.Add(''); 
        with listview1.Items.Add do begin 
          Caption := Line.Strings[0]; 
          Line.Delete(0); 
          SubItems.Assign(Line); 
        end;
      end;
    finally
      FreeAndNil(Line);
      FreeAndNil(LoadList);
    end;
  end;
end;