Block( Const('DeclT2Memo8', Memo,Global, ""), While(Not(DCL.IsEOF(DECLT2G8)), Block( AddStrToSnake(@DeclT2Memo8, DCL.GetFieldVal(DECLT2G8, 'TEXT1'), 1, '; '), AddStrToSnake(@DeclT2Memo8, Supress('¹ ', DCL.GetFieldVal(DECLT2G8, 'DINF02'))), AddStrToSnake(@DeclT2Memo8, Supress('īņ ', DCL.GetFieldVal(DECLT2G8, 'DINF03'))), DCL.MoveNext(DECLT2G8) ) ) )