Hallo Claudio,
warum überhaupt so viele Code-Zeilen? Der einzige bleibende Effekt ist doch das Löschen des ausgewählten Items:
Delphi-Quellcode:
procedure TForm2.Image10Click(Sender: TObject);
var
i: integer;
begin
i := listboxm1.ItemIndex;
listboxm2.Items.Delete(i);
listboxm1.Items.Delete(i);
end;
Grüße vom marabu