procedure TEDBScript.ConvertSQL(TabSize: Integer=3);
var
  TempSourceSQL: TEDBString;
  TempPos: Integer;
  TempStatement: TEDBString;
begin
  FSQL.BeginUpdate;
  try
     TempSourceSQL:=FSQL.Text;
     with FSQL do
        begin
        Clear;
        Add('SCRIPT ()');
        Add('BEGIN');
        end;
     TempPos:=1;
     TempStatement:=NextSQLStatement(TempSourceSQL,TempPos);
     while (TempStatement <> '') do
        begin
        TempStatement:=TrimString(TempStatement);
        if (TempStatement <> '') then     
>>          FSQL.Add(Replicate(' ',TabSize)+TEDBString('EXECUTE IMMEDIATE ')+                     TempStatement  +TEDBString(';'));
        TempStatement:=NextSQLStatement(TempSourceSQL,TempPos);
        end;
     FSQL.Add('END');
  finally
     FSQL.EndUpdate;
  end;
end;

This is my correction:

FSQL.Add(Replicate(' ',TabSize)+TEDBString('EXECUTE IMMEDIATE ')+ QuotedStr( TempStatement ) +TEDBString(';'));