Program AgiDemo;
Uses
    AgiUnit;
Var
    Result              : TAgiResult;
Begin;
    Result := AgiCmd('SAY NUMBER 123 "*#"');
    AsteriskWriteln(Result.StringRes);
End.