<SQL>

<GetText>

[out clpText]

begin

--:spText := 'sdfsadf';

:clpText := GDS_GOODSERVTABNAMEMODAPI.GetTextSelection;

end;

</GetText>

</SQL>

<PASCAL>

//ShowMessage('test');

// ShowMessage('test33');

// получаем будущее значение макроса, либо

x := ExecSqlEx('GetText', 'clpText', [ftOraClob], [' ']);

//ShowMessage('test2');

AddMacro('GSTFullMacro', x[0]);

</PASCAL>