Untypisierte Konstante übergeben?

[NicoDE]

Zitat von tn249:

ich habe den Zusammenhang zu meinem Problem nicht verstanden.

Ich habe mich beim Lesen der Frage auch ziemlich blöd angestellt, sorry

Eine Möglichkeit wären überladene Funktionen:

Delphi-Quellcode:

procedure Foo(Color: TColor); overload;
begin
  //
end;

procedure Foo(Kind: TKind); overload;
begin
  //
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Foo(Blue);
  Foo(Car);
end;