Один код на несколько компонент (listBox)

procedure TForm1.SaveAs1Click(Sender: TObject);
begin
//SaveAs1: TMenuItem;
if SaveDialog1.Execute then (Sender As TListBox).Items.SaveToFile(SaveDialog1.FileName);
end;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    ListBox3: TListBox;
    pMenuForAll: TPopupMenu;
    nSave: TMenuItem;
    procedure nSaveClick(Sender: TObject);
    procedure pMenuForAllPopup(Sender: TObject);
  private  { Private declarations }
    Cmp: TComponent;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.nSaveClick(Sender: TObject);
begin
  if Cmp is TListBox then (Cmp as TListBox).Items.SaveToFile(Format('c:\tmp\%s.txt', [(Cmp as TListBox).Name]));
end;
 
procedure TForm1.pMenuForAllPopup(Sender: TObject);
begin
  Cmp := (Sender as TPopupMenu).PopupComponent;
end;

if SaveDialog1.Execute then
(PopupMenu1.PopupComponent as TListBox).Items.SaveToFile(SaveDialog1.FileName);

showmessage(sender.classname)

  with (((Sender as TMenuItem).Parent.Owner as TPopupMenu).PopupComponent as TRzbitbtn) do
  begin
    showmessage('del '+ caption);
  end;