Gleicher Prozedurenname - Anderer Parametertyp

[Popov]

Vielleicht denke ich zu einfach oder zu kompliziert, aber sowas vielleicht in der Art?

Delphi-Quellcode:

type
  TTest = class
  private
    procedure DreiObjekte2(x: TObject);
  public
    property DreiObjekte: TObject write DreiObjekte2;
  end;

procedure TTest.DreiObjekte2(x: TObject);
begin
  if (x is TBitmap) then
  begin
    ShowMessage('TBitmap');
  end;

  if (x is TStrings) then
  begin
    ShowMessage('TStrings');
  end;

  if (x is TButton) then
  begin
    ShowMessage('TButton');
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Test: TTest;
begin
  Test := TTest.Create;
  try
    Test.DreiObjekte := Image1.Picture.Bitmap;
    Test.DreiObjekte := Memo1.Lines;
    Test.DreiObjekte := Button1;
  finally
    Test.Free;
  end;
end;