unit OtherGadget;

interface

type
  TOtherGadget = class(TObject)
  public
    procedure Prepare;
  end;

implementation

procedure TOtherGadget.Prepare;
begin
  { unrelated prepare }
end;

end.