Учусь писать на дельфи.
 делаю программу  в види карточки. Поиск работает но не так. Не могу разобраться. Например открыл форму поиска  все реквизиты там пусты, хочу найти карточку, для этого ввели на выбор любые реквизиты  например в (QW1, QW5,QW9) и что бы поиск производился по этим заданным реквизитам и если такая карточка существует то он ее открыл. А у меня получилось так, если по QW1 он не находит записи, то начинает искать по QW5, и если такой тоже нет начинает производить поиск по QW9 и если он находит например  запись по QW9   то он открывает ее не смотря на заполненые рекизиты QW1 и QW5.

Подскажите где я ошибся.


procedure TForm3.SpeedButton1Click(Sender: TObject);
Var  i:Integer;
    Par:Variant;
    DPar,Text:String;
begin
 Text:='';  B:=0;
     Query1.Close;
     Query1.SQL.Clear;
            Par:=E1.Text;
            If Par<>'' Then
            Begin Query1.SQL.Add('SELECT * FROM main WHERE                  QW1="'+E1.Text+'"');
              Text:=’фффф ’;
              Query1.Open;  LL.Caption:=IntToStr(Query1.RecordCount);
              b:=Query1.FieldByName('Key').AsInteger;
            End;
            Par:=E2.Text;
            If Par<>'' Then Begin Query1.SQL.Add('SELECT * FROM main WHERE QW2="'+E2.Text+'"');
              Text:='ыыыы ';
              Query1.Open;       LL.Caption:=IntToStr(Query1.RecordCount);
              b:=Query1.FieldByName('Key').AsInteger;
            End;
            DPar:=Trim(E3.Text);
            If DPar<>'' Then Begin Query1.SQL.Add('SELECT * FROM main WHERE QW3="'+DateToStr(E3.Date)+'"');
             Text:=’вввв’;
             Query1.Open;       LL.Caption:=IntToStr(Query1.RecordCount);
             b:=Query1.FieldByName('Key').AsInteger;
            End;
            Par:=E4.Text;
            If Par<>'' Then
            Begin Query1.SQL.Add('SELECT * FROM main WHERE QW4="'+E4.Text+'"');
              Text:='аааа';
              Query1.Open;       LL.Caption:=IntToStr(Query1.RecordCount);
              b:=Query1.FieldByName('Key').AsInteger;
            End;
            Par:=E5.Text;
            If Par<>'' Then
            Begin Query1.SQL.Add('SELECT * FROM main WHERE QW5="'+E5.Text+'"');
              Text:='пппппп';
              Query1.Open;       LL.Caption:=IntToStr(Query1.RecordCount);
              b:=Query1.FieldByName('Key').AsInteger;
            End;
            Par:=E6.Text;
            If Par<>'' Then
            Begin Query1.SQL.Add('SELECT * FROM main WHERE QW6="'+E6.Text+'"');
              Text:='рррррррр';
              Query1.Open;       LL.Caption:=IntToStr(Query1.RecordCount);
              b:=Query1.FieldByName('Key').AsInteger;
            End;
            Par:=E7.Text;
            If Par<>'' Then
            Begin Query1.SQL.Add('SELECT * FROM main WHERE QW7="'+E7.Text+'"');
              Text:='ооооооо';
              Query1.Open;       LL.Caption:=IntToStr(Query1.RecordCount);
              b:=Query1.FieldByName('Key').AsInteger;
            End;
            DPar:=Trim(E8.Text);
            If DPar<>'' Then Begin Query1.SQL.Add('SELECT * FROM main WHERE QW8="'+DateToStr(E8.Date)+'"');
             Text:='ллллллллллл';
             Query1.Open;       LL.Caption:=IntToStr(Query1.RecordCount);
              b:=Query1.FieldByName('Key').AsInteger;
            End;
            Par:=E9.Text;
            If Par<>'' Then
            Begin Query1.SQL.Add('SELECT * FROM main WHERE QW9="'+E9.Text+'"');
              Text:='дддддддддд';
              Query1.Open;       LL.Caption:=IntToStr(Query1.RecordCount);
              b:=Query1.FieldByName('Key').AsInteger;
            End;
            DPar:=Trim(E10.Text);
            If DPar<>'' Then Begin Query1.SQL.Add('SELECT * FROM main WHERE QW10="'+DateToStr(E10.Date)+'"');
             Text:='жжжжжжжжжж';
             Query1.Open;       LL.Caption:=IntToStr(Query1.RecordCount);
              b:=Query1.FieldByName('Key').AsInteger;
            End;
            Par:=E11.Text;
            If Par<>'' Then
            Begin Query1.SQL.Add('SELECT * FROM main WHERE QW11="'+E11.Text+'"');
              Text:='ййййййй';
              Query1.Open;       LL.Caption:=IntToStr(Query1.RecordCount);
              b:=Query1.FieldByName('Key').AsInteger;
            End;
            DPar:=Trim(E12.Text);
            If DPar<>'' Then Begin Query1.SQL.Add('SELECT * FROM main WHERE QW12="'+DateToStr(E12.Date)+'"');
             Text:=фффффф';
             Query1.Open;       LL.Caption:=IntToStr(Query1.RecordCount);
              b:=Query1.FieldByName('Key').AsInteger;
            End;
            DPar:=Trim(E13.Text);
            If DPar<>'' Then Begin Query1.SQL.Add('SELECT * FROM main WHERE QW13="'+DateToStr(E13.Date)+'"');
             Text:='уууууууууууу ';
             Query1.Open;       LL.Caption:=IntToStr(Query1.RecordCount);
              b:=Query1.FieldByName('Key').AsInteger;
            End;
            Par:=E14.Text;
            If Par<>'' Then
            Begin Query1.SQL.Add('SELECT * FROM main WHERE QW14="'+E14.Text+'"');
              Text:='ккккккккккк';
              Query1.Open;       LL.Caption:=IntToStr(Query1.RecordCount);
              b:=Query1.FieldByName('Key').AsInteger;
            End;
            DPar:=Trim(E15.Text);
            If DPar<>'' Then Begin Query1.SQL.Add('SELECT * FROM main WHERE QW15="'+DateToStr(E15.Date)+'"');
             Text:='ееееееееееееее';
             Query1.Open;       LL.Caption:=IntToStr(Query1.RecordCount);
              b:=Query1.FieldByName('Key').AsInteger;
            End;
     IF LL.Caption='0' THEN ShowMessage('Запись с таким '+Text+' не наидена') Else
       Begin
 If b<>0 Then
 Begin
     Table1.Close;
     Table1.open;
     Table1.Locate('Key', b, []);
     Table1.Edit;
     E1. Text:=Table1.FieldByName('QW1').Text;
     E2. Text:=Table1.FieldByName('QW2').Text;
     E3. Date:=Table1.FieldByName('QW3').AsDateTime;
     E4. Text:=Table1.FieldByName('QW4').Text;
     E5. Text:=Table1.FieldByName('QW5').Text;
     E6. Text:=Table1.FieldByName('QW6').Text;
     E7. Text:=Table1.FieldByName('QW7').Text;
     E8. Date:=Table1.FieldByName('QW8').AsDateTime;
     E9. Text:=Table1.FieldByName('QW9').Text;
     E10.Date:=Table1.FieldByName('QW10').AsDateTime;
     E11.Text:=Table1.FieldByName('QW11').Text;
     E12.Date:=Table1.FieldByName('QW12').AsDateTime;
     E13.Date:=Table1.FieldByName('QW13').AsDateTime;
     E14.Text:=Table1.FieldByName('QW14').Text;
     E15.Date:=Table1.FieldByName('QW15').AsDateTime;
 End Else ClearComp;
 End;
     Query1.Close;

 End;