asistente de SQL

[atrus]

muchas gracias jachguate, de todos modos posteo el codigo y a ver si alguien me puede ayudar, porqué no se me ocurren ideas, espero que esto esté permitido.
voy cogiendo de un combobox las tablas i de otro los campos i voy creando la sentencia.

Código Delphi [-]
procedure TP09_MENU_PRINCIPAL.cmb_taulaChange(Sender: TObject);
begin

        cmb_camp.ItemIndex:=-1;
        adoc1.GetFieldNames(cmb_taula.Items[cmb_taula.itemindex],cmb_camp.Items);  //carga los campos de las tablas al combobox
        if (icont=0) then begin//si no hay nada en la parte del from entonces insertara el primero
                sfrom := cmb_taula.Items[cmb_taula.itemindex];
        end;

        if (icont=1) then begin
                sfrom := sfrom+', '+cmb_taula.Items[cmb_taula.itemindex];
        end;
        icont:=1;

end;

procedure TP09_MENU_PRINCIPAL.cmb_campChange(Sender: TObject);
begin
        if (icont_field=0) then begin
                sselect :=cmb_camp.Items[cmb_camp.itemindex];
        end;

        if (icont_field=1) then begin
                sselect :=sselect+', '+cmb_camp.Items[cmb_camp.itemindex];
        end;

        icont_field:=1;
end;

procedure TP09_MENU_PRINCIPAL.btn3Click(Sender: TObject);
begin
        mem1.Lines.Text := 'select '+sselect+' from '+sfrom;
end;