Parameter mit multiplen Typen

[LoZe]

wie wäre es mit einem TObject?

Delphi-Quellcode:

function Test(AParam1: TObject): String;
begin
  if AParam1 is TOBJ1 then
  begin
    //
  end;
  if AParam1 is TOBJ2 then
  begin
    //
  end;
end;

natürlich mehr Aufwand alle Klassen anzulegen etc...