Function PrepareSQLScript(s: string): string;
var
  n,i,k  : integer;
  l      : array of string;
  p,p0,j : integer;
  isText : boolean;
  IsWork : boolean;
  c      : Char;
  Lev    : array of integer;
  ln     : integer;
  isCode : boolean;
  List   : TStringList;
begin
  for k:=0 to 1 do begin
    s:=Trim(s);
    isCode:=pos('#13#10+',s)>0;
    if (s[1]='''') and (s[length(s)]='''') then begin
      s:=copy(s,2,length(s)-2);
      isCode:=True;
      s:=StringReplace(s,'''''','''',[rfReplaceAll]);
    end;


    s:=StringReplace(s,'" +'#13#10,#13#10,[rfReplaceAll]);
    s:=StringReplace(s,'"+'#13#10,#13#10,[rfReplaceAll]);
    s:=StringReplace(s,#13#10'"',#13#10,[rfReplaceAll]);

    s:=StringReplace(s,#13#10'"','#13#10',[rfReplaceAll]);
    s:=StringReplace(s,'#13#10+','#13#10',[rfReplaceAll]);
    s:=StringReplace(s,'''#$D#$A''',#13#10,[rfReplaceAll]);
    s:=StringReplace(s,'''#$D#$A''',#13#10,[rfReplaceAll]);
    s:=StringReplace(s,'''#13#10''',#13#10,[rfReplaceAll]);
    s:=StringReplace(s,'''#13#10',#13#10,[rfReplaceAll]);
    s:=StringReplace(s,'''#$D#$A',#13#10,[rfReplaceAll]);
    s:=StringReplace(s,'#$D#$A''',#13#10,[rfReplaceAll]);
    s:=StringReplace(s,'''#13#10',#13#10,[rfReplaceAll]);
    s:=StringReplace(s,'#13#10''',#13#10,[rfReplaceAll]);
    s:=StringReplace(s,#13#10'''',#13#10,[rfReplaceAll]);

    s:=StringReplace(s,'''#$A',#13#10,[rfReplaceAll]);
    s:=StringReplace(s,'''#$A''',#13#10,[rfReplaceAll]);
    s:=StringReplace(s,'#$A''',#13#10,[rfReplaceAll]);

    s:=StringReplace(s,'=''''''''','=''''',[rfReplaceAll]);
    s:=StringReplace(s,'>''''''''','>''''',[rfReplaceAll]);
    s:=StringReplace(s,'<''''''''','<''''',[rfReplaceAll]);

    // Удаление лишних значков '
    List:=TStringList.Create;
    try
      List.Text:=s;
      for i:=0 to List.Count-1 do begin
        s:=List[i];
        p:=0;
        if Length(s)>5 then begin
          repeat
            isWork:=False;
            isText:=False;
            for j:=1 to length(s)-1 do begin
              if isText then begin
                if (Copy(s,j,2)='''''') then begin
                  if ((j=length(s)-1) or ((j+3<=length(s)) and (s[j+3]<>''''))) and (s[j-1]<>'''') then begin
                    isWork:=True;
                    s:=Copy(s,1,p-1)+Copy(s,p+1,j-p)+Copy(s,j+2,length(s));
                    Break;
                  end;
                end;
              end else begin
                if (Copy(s,j,2)='''''') then begin
                  if ((j=1) or (s[j-1]<>'''')) and ((j<length(s)-1) and (s[j+2]<>'''')) then begin
                    p:=j;
                    isText:=True;
                  end;
                end;
              end;
            end;
          until not IsWork;
          List[i]:=s;
        end;
      end;
      s:=List.Text;
    finally;
      List.Free
    end;



    s:=trim(s);
    n:=length(s);
    if n=0 then Exit;

    if (s[n]='''') and (s[1]='''') then begin
      s:=copy(s,2,n-2);
    end;

    s:=StringReplace(s,' RIGHT OUTER JOIN',#13#10+'RIGHT OUTER JOIN',
      [rfIgnoreCase,rfReplaceAll]);
    s:=StringReplace(s,' LEFT OUTER JOIN',#13#10+'LEFT OUTER JOIN',
      [rfIgnoreCase,rfReplaceAll]);
    s:=StringReplace(s,' INNER JOIN',#13#10+'INNER JOIN',[rfIgnoreCase,
      rfReplaceAll]);

    s:=StringReplace(s,' WHERE',#13#10+'WHERE',[rfIgnoreCase,rfReplaceAll]);
    s:=StringReplace(s,' GROUP BY',#13#10+'GROUP BY',[rfIgnoreCase,rfReplaceAll]);
    s:=StringReplace(s,' ORDER BY',#13#10+'ORDER BY',[rfIgnoreCase,rfReplaceAll]);
    s:=StringReplace(s,' FROM',#13#10+'FROM',[rfIgnoreCase,rfReplaceAll]);
    s:=StringReplace(s,' UNION',#13#10+'UNION',[rfIgnoreCase,rfReplaceAll]);
    s:=StringReplace(s,' SELECT',#13#10+'SELECT',[rfIgnoreCase,rfReplaceAll]);
    s:=StringReplace(s,' UPDATE',#13#10+'UPDATE',[rfIgnoreCase,rfReplaceAll]);
    s:=StringReplace(s,' DELETE',#13#10+'DELETE',[rfIgnoreCase,rfReplaceAll]);
    s:=StringReplace(s,#13#10#13#10,#13#10,[rfReplaceAll]);
    s:=StringReplace(s,#13#10+' ',#13#10,[rfReplaceAll]);
    s:=StringReplace(s,' AND'#13#10,#13#10'AND ',[rfIgnoreCase,rfReplaceAll]);
    s:=StringReplace(s,' OR'#13#10,#13#10'OR ',[rfIgnoreCase,rfReplaceAll]);
    s:=StringReplace(s,' AND ',#13#10'AND ',[rfIgnoreCase,rfReplaceAll]);
    s:=StringReplace(s,' OR ',#13#10'OR ',[rfIgnoreCase,rfReplaceAll]);

    // Constructions

    s:=StringReplace(s,'SELECT * '#13#10'FROM','SELECT * FROM',
      [rfIgnoreCase,rfReplaceAll]);
    s:=StringReplace(s,'('#13#10'SELECT','(SELECT',[rfIgnoreCase,rfReplaceAll]);

    // check out for contingecy;
    n:=length(s);
    if n<2 then
      Exit;
    if copy(s,1,2)=#13#10 then begin
      s:=copy(s,3,n-2);
    end;

    s:=s+' ';

    // Alignment
    p:=1;
    n:=-1;
    while p<length(s) do begin
      p0:=PosEx(#13#10,s,p);
      if p0=0 then begin
        p0:=length(s);
      end;
      inc(n);
      SetLength(l,n+1);
      l[n]:=copy(s,p,p0-p);
      p:=p0+2;
    end;

    isText:=False;
    SetLength(Lev,1);
    Lev[0]:=0;
    ln:=0;
    s:='';
    for i:=0 to length(l)-1 do begin
      l[i]:=trim(l[i]);
      if length(l[i])>1 then begin
        if (l[i][1]='''')and(l[i][length(l[i])-1]='+') then begin
          l[i]:=copy(l[i],2,length(l[i])-2);
        end;
      end;
    end;

    for i:=0 to length(l)-1 do begin
      for p:=1 to length(l[i]) do begin
        c:=l[i][p];
        if (c='''')or(c='"') then begin
          isText:=not isText;
        end;
        if not isText then begin
          l[i][p]:=AnsiUpperCase(l[i][p])[1];
          if c='(' then begin
            inc(ln);
            SetLength(Lev,ln+1);
            Lev[ln]:=p;
          end;
          if c=')' then begin
            if ln>0 then
              Dec(ln);
          end;
        end;
      end;
      if (ln>=0)and(i<length(l)-1) then l[i+1]:=StringOfChar(' ',Lev[ln])+l[i+1];
      if trim(l[i])<>'' then s:=s+l[i]+#13#10;
    end;

    if isCode then begin
      s:=trim(s);
      if copy(s,length(s)-1,2)=''';' then begin
        SetLength(s,length(s)-2);
      end;
      if copy(s,length(s)-1,2)=''';' then begin
        SetLength(s,length(s)-2);
      end;
    end;
  end;
  Result:=s;
end;