Ayuda con error! expresion demasiado compleja en la expresion de consulta

[escorpionrojo43]

Muchas Gracias amigos. este club me ha ayudado mucho en esto.
Aquí pongo el código a disposición de quien lo necesite.

Código Delphi [-]
procedure TFregistroNumeros.Button2Click(Sender: TObject);
var campo11:string;
begin
    with qry_rep_numeros, sql do
  begin
    //Construye query con datos del reporte.
    Close;
    Clear;
    Add('SELECT IIf([jugada]= '+quotedstr(edit1.Text)+',"Primera", ');
    Add('IIf([jugada]= '+quotedstr(edit2.Text)+',"Segunda", ');
    Add('IIf([jugada]= '+quotedstr(edit3.Text)+',"Tercera", ');
//Determina el pale de 1ra y 2da, 1ra y 3ra, 2da y 1ra y 3ra y 1ra
    Add('IIf([jugada]= '+quotedstr(edit1.Text + edit2.Text)+' or [jugada] = '+ quotedstr(edit1.Text + edit3.Text)+' or [jugada]= '+quotedstr(edit3.Text + edit1.Text)+ 'or [jugada]= '+quotedstr(edit2.Text + edit1.Text)+',"P1",');
//Determinia el pale 2da y 3ra Y 3ra y 2da
    Add('IIf([jugada]= '+quotedstr(edit2.text) +'+'+ quotedstr(edit3.text)+' or [jugada] = '+ quotedstr(edit3.text) + '+' +quotedstr(edit2.text)+',"P2", ');
//Determina si es una tripleta
    Add('IIf([jugada]= '+quotedstr(edit1.text + edit2.text + edit3.text) + ' or [jugada]= ' + quotedstr(edit1.text +  edit3.text + edit2.text)+' or [jugada]=' + quotedstr(edit2.text + edit1.text + edit3.text)+  'or [jugada]= '+ quotedstr(edit2.text + edit3.text + edit1.text)+' or [jugada]= '+quotedstr(edit3.text + edit2.text + edit1.text)+ ' or [jugada]= '+quotedstr(edit3.text + edit1.text + edit2.text)+' ,"Tripleta",');
    Add('" ")))))) AS campo11, *');
    Add('From ticket_detalle');
    Add('where (  (Fecha = ' +'#'+ FormatDateTime('yyyy/mm/dd', datetimepicker1.Date)+'#'+')');
    Add('and   (loteria ='+ inttostr(Combobox1.ItemIndex)+')');
    Add('and   (  ([jugada] = ' + quotedstr(edit1.text)+ 'or  [jugada] = ' + quotedstr(edit2.text) + 'or [jugada] = ' + quotedstr(edit3.text)+')');
    Add('or    (  [jugada] =  ' + quotedstr(edit1.Text + edit2.Text)+' or [jugada] = '+ quotedstr(edit1.Text + edit3.Text)+' or [jugada]= '+quotedstr(edit3.Text + edit1.Text)+ 'or [jugada]= '+quotedstr(edit2.Text + edit1.Text)+')))');
    Add('order by len(jugada),jugada');
    open;
    if eof then
    begin
      ShowMessage('No se encontraron registros. Por favor verífique los criterios indicados!.');
      exit;
      next;
    end;
    first;
  end;
  campo11 := qry_rep_numeros.FieldByName('campo11').AsString;
  rep_ganadores.Print;
end;

Bueno solo me faltan algunos detalles de afinación y un par de condiciones mas. pero así es como me ha quedado. si creen que se puede mejorar me hacen saber.