delphi调用dll，结构体作为参数

调用总是不成功，请大家多赐教，谢谢dll中的结构体和函数定义
struct Data_Task 
{
char equitment_task_no[32];//检定任务编号EQUIPMENT_TASK_CODE
char bar_code[32];//设备条形码barcode
char goods_code[32];//到货批次号
char bar_type[32];//电表类别
};
DBADLLEXPORT int DBA_WriteData_Task(Data_Task *dataHead);在delphi中的声明
  type
      Data_Task=record
    equitment_task_no:array[0..31] of char;
    bar_code:array[0..31] of char;
    goods_code:array[0..31] of char;
    bar_type:array[0..31] of char;
  end;
P_Data_Task=^Data_Task;
function DBA_WriteData_Task(data_tast:P_Data_Task):Integer;stdcall;external 'dba_api.dll';procedure TForm1.btn24Click(Sender: TObject);
var
  tt:Data_Task;
begin
  tt.equitment_task_no:='01';
  tt.bar_code:='12345678';
  tt.goods_code:='01';
  tt.bar_type:='01';
  edt2.Text:=IntToStr(DBA_WriteData_Task(@tt));
end;