Var
i : Integer;
ListItem: TListItem;
begin
for i:=0 to ListView2.Items.Count -1 do
begin
if (ListView2.Items.Item[i].SubItems.IndexOf(Edit1.Text) > -1) then
ListView1.Items.AddItem(ListView2.Items.Item[i], -1);
end;
end;
Nie wiem jak zrobic zeby to przeszukiwalo mi pierwsza kolumna i dodawalo do drugiej :-(