pass property to to function parameter

Hello,

Is it possible to pass property to function parameter? Unfortunately I
got error 'Types of actual and formal var parameters must be
identical'.


type TStringProperty = procedure (const s:string) of object;

type
TMyClass = class
  private
    FID: integer;
    procedure SetID(const Value: integer);
  published
    property ID: integer read FID write SetID;
end;


function C( var into_: TStringProperty):boolean;
begin
into_('a');
result:= true;
END;


procedure TEFT_Vserver.SetID(const Value: integer);
begin
  FID := Value;
end;


Than You