Funktion, die beliebigen Typ zuweist und als Bool auswertet

[Deep-Sea]

Wie wäre es mit einer generischen Funktion?! Dann musst du halt die Klasse immer mit angeben ...

Nachtrag:
Also z.B. so in der Art.

Delphi-Quellcode:

TForm1 = class(TForm)
public
  procedure Test<T>(var AItem: T);
end;

procedure TForm1.Test<T>(var AItem: T);
begin
  // Mach was mit AItem
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  LObject: TButton;
begin
  Test<TButton>(LObject);
end;