Dúvida com select

implementation

{$R *.DFM}

procedure CriarMatrizX(Composicao:String);
var
i,indiceanterior,q:integer;
texto:String;
begin
q:=0;
i:=1;
indiceAnterior:=1;
while i <= length(composicao) do
 begin
    if composicao[i]=´;´ then
      begin
        texto:=copy(composicao,indiceanterior,i - indiceAnterior);
        indiceAnterior:=i+1;
        //aqui voce vaui criar a MatrizX[i]
        X[q]:=Trim(texto);
        q:=q+1;
        form1.Memo1.Lines.Add(texto);
        FormacaoString:=formacaoString+texto;
      end;
    i:=i+1;
 end;
end;

procedure CriarMatrizY(Composicao:String);
var
i,indiceanterior,q:integer;
texto:String;
begin
setlength(Y, 100);
i:=1;
indiceAnterior:=1;
while i <= length(composicao) do
 begin
    if composicao[i]=´;´ then
      begin
        texto:=copy(composicao,indiceanterior,i - indiceAnterior);
        indiceAnterior:=i+1;
        //aqui voce vai criar a MatrizY[i]
        Y[q]:=Trim(texto);
        form1.Memo2.Lines.Add(texto);
        FormacaoString:=FormacaoString+texto;
      end;
    i:=i+1;
 end;
end;

function GeraCombinacoes(S: string; NumDig: Integer): TStrings; 
var
I, J: Integer;
X: Char;
TS: TStrings;
S1: string;
begin
  Result := TStringList.Create; 
  TS     := TStringList.Create; 

  for I := 1 to Length(S) do Result.Add(S[I]); 

  while Length(Result.Strings[0]) < NumDig do 
    begin 
      for I := 0 to (Result.Count - 1) do
        begin
          S1 := ´´; 
          for J := 1 to Length(S) do 
            begin
              X := S[J]; 
              if Pos(X, Result.Strings[I]) = 0 then S1 := S1 + X; 
            end; 

          for J := 1 to Length(S1) do
            begin 
              X := S1[J]; 
              TS.Add(Result.Strings[I] + X);
            end; 
        end;
      Result.Text := TS.Text; 
      TS.Clear; 
    end; 

  TS.Free;
end; 

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,indice:integer;
begin
//pesquisa na tabela1
Query1.Close;
Query1.SQL.Clear;
Query1.Sql.Add(´Select *From  Tabela1´);
Query1.Sql.Add(´Where Produto=:NomePrimeiroProduto´);
Query1.ParamByName(´NomePrimeiroProduto´).asstring:=edit1.text;
Query1.Sql.Add(´And Produto=:NomesegundoProduto´);
Query1.ParamByName(´NomesegundoProduto´).asstring:=edit2.text;
Query1.Prepare;
Query1.open;
Criaçao da MatrizX
tamanhox:=0;
setlength(x, 100);
CriarMatrizX(query1.FieldByName(´Produto´).asstring);
Query1.Next;
//Criaçao da Matriz Y
tamanhoy:=0;
setlength(y, 100);
CriarMatrizY(query1.FieldByName(´Produto´).asstring);

//******ETAPA ABAIXO DEVE SER SUBSTITUIDA

Memo3.Lines.Assign(GeraCombinacoes(formacaoString,2));
//aqui voce deve criar a sua matriz Z .. Ela é da forma N,2
//eu não to fazendo este passo..suponha que a partir de Memo3 se consiga isto

//Novamente mais uma consulTa , agora na tabela 2
i:=1;
for i:=1 to tamanhox do
  begin
    for j:=1 to tamanhoy do
      begin
        Query2.Close;
        Query2.SQL.Clear;
        Query2.Sql.Add(´Select *From  Tabela2´);
        Query2.Sql.Add(´Where (Composicao1=:Comp1´);
        Query2.Sql.Add(´And Composicao2=:Comp2)´);
        query2.sql.add(´Or(composicao1:=comp2´);
        query2.sql.add(´and(composicao2:=comp1))´);
        Query2.ParamByName(´Comp1´).asstring:=X[i];
        Query2.ParamByName(´Comp2´).asstring:=Y[J];
        Query2.Prepare;
        Query2.open;

        //esta é a lei de formação servira para implementar Z******
        Indice:=(i*j)+(i-1)*(3-j);
       //A formula anteiror no meu conceito e de extrema importancia para 
      //a formação da futura Matriz Z

        if query2.fieldByName(´Reacao´).AsString <> ´´ Then
           Memo4.Lines.Add(query2.fieldByName(´Reacao´).AsString)
        //Z[i,Indice]:=query2.fieldByName(´Reacao´).AsString
        //nada foi encontrado
        else
          Memo4.Lines.Add(´´);
          // Z[I,indice]:=´´;
      end;
 end;
end;