with ... do begin Problem

[Touchdown]

Ich verstehe dein Problem nicht wirklich aber sowas könnte dir helfen:

Du verzweigst in der Procedure, indem du das übergebene Object auf seine Art prüfst. Allerdings muss du dann in beiden Fallen TObject übergeben.


procedure dingsdabums( pointer : TObject );
begin
if pointer is TCanvas then
begin

....


end
else
begin

{ lass lieber den else Zweig weg und prüf nochmal das Object
if pointer is TWasduwillst then ... }

end;
end;