ConvFRMStringtoScript

procedure ConvFRMStringtoScript(

  const s: string;

  UsedUnits: TStrings;

  Output: TStrings;

  AsUnit: Boolean = True;

  const UnitName: string = '';

  const Src: TStrings = Nil;

  const TitanLanguage: string = 'TitanPascal'

);