verschiedene Sets an Prozedur übergeben

[Angel4585]

Hallo,

wie kann ich folgendes realisieren, ohne eine überladene Prozedur zu verwenden:

Delphi-Quellcode:

type
TMyClass1 = (a,b,c,d);
TMyClass2 = (e,f,g,h);
TMySet1 = set of TMyClass1;
TMySet2 = set of TMyClass2;


procedure DoSomethingWithAnySet(ASet : set);//Was für einen Typ muss de Parameter haben, damit ich jedes Set übergeben kann?
begin

end;

procedure TForm1.Button1Click(Sender : TObject);
var 
  set1 : TMySet1;
  set2 : TMySet2;
begin
DoSomethingWithAnySet(set1);
DoSomethingWithAnySet(set2);
end;

Geht das irgendwie ohne die Prozedur zu überladen?

MfG

Edit:

Es sollte so funktionieren wie bei Objekten:

Delphi-Quellcode:

type 
 TMyObject1 = class(TObject)
   .
   .
   .
   end;

 TMyObject2 = class(TObject)
   .
   .
   .
   end;

procedure DoSomething(AObject : TObject);//Hier kann ich ja auch beide Objekttypen übergeben
begin

end;