Foros Club Delphi - Error con llamada a Stored Proc

Quando me voy a llamar una SP, me viene el error:
Erro ao tentar converter varchar em DateTime
Pero no lo se de onde viene este varchar. Abajo mis codigos.

Código SQL [-]CREATE PROCEDURE [dbo].[sp_INS_LOG_INDEX_JUS](

@TIPO_EDICAO VARCHAR(20),

@NUM_EDICAO VARCHAR(10),

@DATA_EDICAO DATETIME,

@NUM_PAGINA VARCHAR(10),

@JUSTIFICATIVA TEXT,

@id bigint output

) as

begin

insert into INDEX_LOG_JUS(TIPO_EDICAO,NUM_EDICAO,DATA_EDICAO,

NUM_PAGINA,JUSTIFICATIVA) values 

(@TIPO_EDICAO,@NUM_EDICAO,@DATA_EDICAO,

@NUM_PAGINA,@JUSTIFICATIVA);

select @id = @@identity

end

Mi funcion para llamar la SP

Código SQL [-]function TGeneralFiles.InsereJus(Tipo_Edicao, Num_Edicao: String;Data: TDateTime; Num_Pagina, Justificativa: String;
   ObjConn: TAdoConnection;ObjSp: TADOStoredProc): int64;
begin
  with ObjSp, Parameters do
  begin
    ParamByName('@TIPO_EDICAO').Value := Tipo_Edicao;
    ParamByName('@NUM_EDICAO').Value := Num_Edicao;
    ParamByName('@DATA_EDICAO').Value := Data;
    ParamByName('@NUM_PAGINA').Value := Num_Pagina;
    ParamByName('@JUSTIFICATIVA').Value := Just;
    try
      ExecProc;
      Result := ParamByName('@id').Value;
      Commit(ObjConn);
    except
      Rollback(ObjConn);
      raise;
    end;
  end;
end;

Y mis parametros

Código SQL [-]procedure TfrmMain.BitBtn1Click(Sender: TObject);
begin
  if PodeInserir then
    FGeneralFiles.InsereJus(edtTipoEdicao.Text,edtNumEdicao.Text,edtData.DateTime,edtNumPagina.Text,FGen  eralFiles.Just,ADOConn,spJus)
  else
    ShowMessage('Alguns campos não foram preenchidos.'+#13+#10+'Favor corrigir o problema e tentar novamente');
end;

Gracias!