Consulta Sql con query

[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.

[Neftali [Germán.Estévez]]

Empezado por microbiano

Debes tener declara la libreria ComBojs para que funcione.

El problema es que no le da error, por lo tanto la excepción la captura de la excepción no hará nada.