[ContraVeneno]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 with query1 do begin
  Close;
  SQL.Clear;
  SQL.add('select Campos');
  SQL.Add('from project');
  SQL.Add('where city=:param');
  ParamByName('param').AsString:=combobox1.Text;
  Open;
  dbgrid1.Refresh;
 end; //with
end;

eso debe de funionar, si no funciona, es porque combobox1.text no te está dando el valor que tu quieres... ¿no será que debes usar ItemIndex en lugar de Text para tomar el valor?

Además, lo que pongas en tu Combo debe de ser exactamente igual a lo que tengas en tu case de datos, en este caso, creo que sería mejor un LookUpComboBox...