[microbiano]

Código Delphi [-]
with self.query1 do begin
  Close;
  SQL.Clear;
  SQL.add('select *');
  SQL.Add('from project');
  SQL.Add('where city=aram'); //recuerda que tiene saler la carita pero realmente es el nombre del parametro
  parameters.ParamByName('param').value:=combobox1.Text;//aqui cambie As String por value
  try
    open;     
   except
    on E:EOleException do
     begin
      MessageDlg(Format('Error: %s    Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
     end;
   end;

 end; //with
end;

Debes tener declara la libreria ComObjs para que funcione.