[julyus]

encontre esto pero no entiendo esto de pdInputOutput

Código Delphi [-]
EvenType : string;
EvenCode  : string;
begin

  Conn := ConnPool.GetConnection;
  // consulto datos
  if  iCurrSpeed = 0 then
  begin

  //ejecuto el storeprocedure
  ADOSP.Connection := Conn.Connection; // paso el string de conexion
  ADOSP.ProcedureName := 'GetOverSpeed'; // pongo el nombre del SP que voy a utilizar
  ADOSP.Parameters.Refresh; // creo los parametros que espera el SP
  ADOSP.Parameters.ParamByName('@CompanyId').Value  := iCompanyId;
  ADOSP.Parameters.ParamByName('@CarNumber').Value  := sVehicleId;
  ADOSP.Parameters.ParamByName('@Speed').Value  := iCurrSpeed;
  ADOSP.Parameters.ParamByName('@EventType').Direction := pdInputOutput;
  ADOSP.Parameters.ParamByName('@EventCode').Direction :=  pdInputOutput;
  ADOSP.Open;

  end;
  ADOSP.Close;
  ADOSP.Free;