Function mehrmals ausführen (For each?)

[Luckie]

Ungetestet:

Delphi-Quellcode:

if Listview1.SelCount> 1 then
begin 
  for i := 0 to listview1.Items.Count - 1 do
  begin
    if listview1.Selected[i] do
    begin
      Form3.Create(self);
      Form3.Show;
      Form3.Caption:= listview1.Selected.SubItems.Strings[i];
    end;
  end;
end;

Musst du eventuell noch die Bugs rausmachen.