Wie weist man einer Object Procedure eine Variable zu

[Sir Rufo]

Delphi-Quellcode:

TFoo = class
  procedure Bar(printInteractionController: Pointer; completed: Pointer; error: Pointer);
end;

procedure FooBar;
var
  LFoo : TFoo;
  print : TUIPrintInteractionControllerCompletionHandler;
begin
  LFoo := TFoo.Create;
  print := LFoo.Bar;
end;