Combobox, Tablas, Códigos duplicados

[Elite237]

Hola Caro, he visto que tienes conocimientos solidos de delphi y quisiera pedirte una ayuda, algo similar a lo que te han plateado. Mi problema es el siguiente, tengo un ComboBox, un StringGrid y un boton, lo que quiero hacer es que cuando el usuario seleccione una sucursal y le de un clic al boton me envia todos los empleados de esa sucursal en un stringgrid, mi codigo es el siguiente

<delphi>
procedure T_Marketing.Button1Click(Sender: TObject);
var
x:integer;
begin
query1.close;
query1.sql.clear;
query1.sql.add('select pers_nombre,pers_apaterno,pers_amaterno,pers_sitio,pers_rol,vent_sitio,vent_cliente,detv_sitio,detv_ detventa from TPERSONAL,TVENTAS,TDETVENTAS');
query1.open;
x:=1;
while not Query1.EOF do
begin
sgPorVenta.cells[0, x]:=query1.FieldByName('pers_nombre').Asstring;
sgPorVenta.cells[1, x]:=query1.FieldByName('pers_apaterno').Asstring;
sgPorVenta.cells[2, x]:=query1.FieldByName('pers_amaterno').AsString;
sgPorVenta.cells[3, x]:=query1.FieldByName('pers_rol').Asstring;
sgPorVenta.cells[4, x]:=query1.FieldByName('pers_sitio').Asstring;
sgPorVenta.cells[5, x]:=query1.FieldByName('vent_sitio').Asstring;
sgPorVenta.cells[6, x]:=query1.FieldByName('vent_cliente').Asstring;
sgPorVenta.cells[7, x]:=query1.FieldByName('detv_sitio').Asstring;
sgPorVenta.cells[8, x]:=query1.FieldByName('detv_detventa').Asstring;
inc(x);
query1.next;
if x=1 then sgPorVenta.RowCount:=2
else sgPorVenta.RowCount:=x;
end;

end;
</delphi>

lo que hago ahora es solo con el boton, osea al presionar alli tengo la consulta, pero no debe ser asi, dependiendo de la opcion del combobox debe ser lo que se muestra