请教高手delphi的编译出错问题!

我将一个原来做好的程序照搬过来，却出现如下错误：错误1》 procedure TimeCallBack(uTimerID, uMessage: UINT; dwUser, dw1, dw2: Dword) stdcall;  begin
    //计时器，线程执行完毕，停止计时
    tTrainCurrTime:= tTrainCurrTime+EncodeTime(0,0,1,0);
    Train_Form.Tain_stBar.Panels[2].Text:=FormatDateTime('hh:mm:ss',tTrainCurrTime);
    if not tTrainSetProc.Suspended then
    begin
      tTrainPassTime:=tTrainPassTime+EncodeTime(0,0,1,0);
      Train_Form.TGB_Label6.Caption:= FormatDateTime('hh:mm:ss',tTrainPassTime);
    end;
  end;错误为：statement expected but'PROCEDURE'found
该过程在前面已经申明：procedure TimeCallBack(uTimerID, uMessage: UINT; dwUser, dw1, dw2: Dword) stdcall;错误2：[fatal error] test.dpr(6):could not compile used unit'train.pas'
请高手帮帮我，谢谢！