Delphi - ADO Store procedure

Hola a todos;

Tengo el siguiente StoreProcedure

CREATE PROCEDURE BUSQUEDA_CIA
@CODIGO smallint,
@NOMBRE char(50)

AS
SELECT * FROM SIS_COMPANIA WHERE NOMBRE LIKE @NOMBRE
GO

Lo ejecuto desde una aplicacion delphi con ADO, con los siguientes parametros:

procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
ADOStoredProc1.Active:= False;
ADOStoredProc1.Parameters[0].Value:= NULL();
ADOStoredProc1.Parameters[1].Value:= edBusquedaPorCodigo.Text;
ADOStoredProc1.Parameters[2].Value:= edBusquedaPorNombre.Text;
ADOStoredProc1.Active:= True;
end;

Pero no realiza la comsulta, sin embargo si cambio el StoreProcedure entonces si:

CREATE PROCEDURE BUSQUEDA_CIA
@CODIGO smallint,
@NOMBRE char(50)

AS
SELECT * FROM SIS_COMPANIA WHERE NOMBRE LIKE 'E%'
GO

Realiza la consulta.

SI ALGUIEN PUEDE AYUDAR.

A mi me pasaba lo mismo pero en SQLSERVER 2005 con c#, al parecer la sentencia like de sql, no es aceptada por argunmentos, lo que podes hacer es poner en un query la consulta que queres realizar y concatenar la cadena de sql, es decir algo asi
cadena='SELECT * FROM SIS_COMPANIA WHERE NOMBRE LIKE '
query1.SQL.Add(cadena+ nombre.text + '%'')
deberia funcionar..., en todo caso sino funciona avisame..