Dúvida de SQL - Somente para Feras

Boa tarde como eu poderia colocar esta instrução no Delphi utilizando componente Query, Pois quando eu rodo no explorer SQL do Delphi ela funciona... Ah, Estou utilizando Banco de Dados ACCESS Select Cli.*,Pfis.* From TabCliente Cli, TabPes_Fisica Pfis Where cli.Cod_Vendedor = ´00´ and cli.Cod_Cidade = ´00´ and cli.Cod_Area = ´000´ and cli.Rota_Cliente = ´111´ and cli.Cod_cliente = Pfis.Cod_cliente Para mim carregar meu cadastro de clientes antes eu fazia da forma abaixo, ou seja, fazia várias chamanda no banco de dados, como eu faria para resumir tudo isto Dm.Qr_Cliente.SQL.Clear; Dm.Qr_Cliente.SQL.Add(´Select * From TabCliente ´); Dm.Qr_Cliente.SQL.Add(´Where Cod_Vendedor =+´´+(MkVendedor.Text)+´´´); Dm.Qr_Cliente.SQL.Add(´and Cod_Cidade =+´´+(MkCidade.Text)+´´´); Dm.Qr_Cliente.SQL.Add(´and Cod_Area =+´´+(MkArea.Text)+´´´); Dm.Qr_Cliente.SQL.Add(´and Rota_Cliente =+´´+(MkRotaCliente.Text)+´´´); Dm.Qr_Cliente.Open; Dm.Qr_Pes_Juridica.SQL.Clear; Dm.Qr_Pes_Juridica.SQL.Add(´Select * From TabPes_Juridica ´); Dm.Qr_Pes_Juridica.SQL.Add(´Where Cod_Cliente=+´+inttostr(dm.Qr_ClienteCod_Cliente.Value)+´´); Dm.Qr_Pes_Juridica.Open; Dm.Qr_Socios.SQL.Clear; Dm.Qr_Socios.SQL.Add(´Select * From TabSocio´); Dm.Qr_Socios.SQL.Add(´Where Cod_Cliente=+´+inttostr(dm.Qr_ClienteCod_Cliente.Value)+´´); Dm.Qr_Socios.Open; Dm.Qr_Ref_Pes.SQL.Clear; Dm.Qr_Ref_Pes.SQL.Add(´Select * From TabRef_Pes ´); Dm.Qr_Ref_Pes.SQL.Add(´Where Cod_Cliente=+´+inttostr(dm.Qr_ClienteCod_Cliente.Value)+´´); Dm.Qr_Ref_Pes.Open; Dm.Qr_Ref_Com.SQL.Clear; Dm.Qr_Ref_Com.SQL.Add(´Select * From TabRef_Com ´); Dm.Qr_Ref_Com.SQL.Add(´Where Cod_Cliente=+´+inttostr(dm.Qr_ClienteCod_Cliente.Value)+´´); Dm.Qr_Ref_Com.Open; Dm.Qr_Ref_Ban.SQL.Clear; Dm.Qr_Ref_Ban.SQL.Add(´Select * From TabRef_Ban ´); Dm.Qr_Ref_Ban.SQL.Add(´Where Cod_Cliente=+´+inttostr(dm.Qr_ClienteCod_Cliente.Value)+´´); Dm.Qr_Ref_Ban.Open; Obrigado Jelves