при запуске процедуры обрезается значение до 1 символа

[kate158]

привет!
проблема такова:запускаю процедуру на добавление в таблицу значений из двух других, но возвращаемое значение обрезается до 1 символа.

вот код на делфи:

procedure TMainForm.AddDataClick(Sender: TObject);
var
  sp: TADOStoredProc;
begin
  sp:= TADOStoredProc.Create(nil);
  try
    sp.Connection:= DataMod.cn;
    sp.ProcedureName:= 'InsertTypeSupplier;1';

   with sp.Parameters.AddParameter do
    begin
      Name:= '@RETURN_VALUE';
      DataType:= ftInteger;
      Direction:= pdReturnValue;
      Value:= Null;
    end;

    with sp.Parameters.AddParameter do
    begin
      Name:= 'IDSUPPLIER'; 
      DataType:= ftInteger;
      Value:= Null;
    end;

    with sp.Parameters.AddParameter do
    begin
      Name:= '@NAME';
      DataType:= ftString;
      Value:= Null;
    end;

    sp.Parameters[1].Value:= DataMod.qSupplierIdSupplier.AsInteger;
    sp.Parameters[2].Value:= DataMod.qCategoryName.AsString;

    sp.ExecProc;
    datamod.qTypeSupplier.Close;
    datamod.qTypeSupplier.Open;
  finally
    FreeAndNil(sp);
  end;
end;

и код в sql server:

CREATE PROCEDURE InsertTypeSupplier
  (@IDsupplier int, @Name varchar)
AS

SET NOCOUNT ON

BEGIN TRANSACTION

INSERT INTO Type_Supplier
values (@IDSupplier,@Name)

COMMIT TRANSACTION
GO

Кто-нибудь видит ошибку?