Untitled

How to give setter a 2nd parameter in Delphi?
procedure SetMySend(const oValue: TTM_MySend_Profile;
    displayValue: string = '...');

property MySend: TTM_MySend_Profile displayLocateID '...'
    read FMySend write SetMySend;

procedure SetMySend(const Value: TTM_MySend_Profile;
    const displayValue: string); overload;
procedure SetMySend(const Value: TTM_MySend_Profile); overload;
property MySend: TTM_MySend_Profile read FMySend write SetMySend;

procedure TMyClass.SetMySend(const Value: TTM_MySend_Profile);
begin
  SetMySend(Value, '...');
end;