[dec]

Hola,

Si el método que escribiste lo comparten ambos componentes "TreeView" y "ListView" puedes diferenciar quién lo ejecutó mediante el parámetro "Sender" del mismo, o sea, comprobando el tipo de este. Esto sería una cosa así:

Código Delphi [-]
 procedure BorrarCarpeta(Sender: TObject);
  begin
    if (Sender is TTreeView) then
    begin
      // Lo que tengas pensado hacer
    end;
    if (Sender is TListView) then
    begin
      // ...
    end;
  end;