[AlexSku]

Код:

var i:integer;
begin
  for i:=pl1.count-1 downto 0 do
  begin
    if pl1.selected[i] then pl2.Items.Delete(i);
  end; 
end;

Имеется ввиду, что списки содержат одинаковые строки