小弟很急！CSDN这群采鸟(100分)

unit MyPiao;
interface
uses
SysUtils, Classes,Database,Controls;
type
TMyPiao = class
private
TRADETYPE : AnsiString;
CARGONAME : AnsiString;
MYWEITUOID:AnsiString;
STUFFTYPE:AnsiString;
BEGINPORT:AnsiString;
CONVERTPORT:AnsiString;
FINALPORT:AnsiString;
BEGINDATE:TDateTime;
MYID:AnsiString;
LATEDATE:TDate;
DANGER:AnsiString;
TRAFFICITEM:AnsiString;
FEEITEM:AnsiString;
IMPORT:AnsiString;

CARGOTYPE:AnsiString;
WEITUONUM:Integer;
WEITUOWEIGHT:Integer;
CARGOPACKAGE:AnsiString;
{ Private declarations }
public
{ Public declarations }
procedure SaveToDatabase();
procedure RetrieveFromDatabase();
constructor Create();
destructor Destroy;
end;
implementation
constructor TMyPiao.Create();
begin
TRADETYPE:='what2';
MYWEITUOID:='AnsiString';
STUFFTYPE:='AnsiString';
BEGINPORT:='what2';
CONVERTPORT:='what2';
FINALPORT:='what2';
BEGINDATE:=2002-02-02;
MYID:='what2';
LATEDATE:=2002-02-02;
DANGER:='what2';
TRAFFICITEM:='what2';
FEEITEM:='what2';
IMPORT:='what2';
CARGONAME:='what2';
CARGOTYPE:='what2';
WEITUONUM:=0;
WEITUOWEIGHT:=0;
CARGOPACKAGE:='what2';
end;
为什么总是出现非法访问错误。

你最好指出问题出在哪一个语句行上。

最后的end.是你漏写的吗?
如果不是请单步调试看看

对CARGONAME进行赋值的时候

??? BEGINDATE:=2002-02-02;
有这样赋值的吗？
你的这种赋值方式＝＝》BEGINDATA := 1998;

首先是 BEGINDATE:=2002-02-02; 不對
他會讓你的 BEGINDATE:=2002-2-2=1998 ;
應該是 BEGINDATE:=strtodate(2002-02-02);

destructor Destroy; 最好改成
destructor Destroy;override;

其余的好象沒什么錯誤
最好吧調用的代碼貼上來

老大呀，那行代码没有报错。
我吧时间那个该过来了，但还是出错

对MYID进行赋值的时候也报错。
我调用的方法很简单，
就是一个按钮的点击事件中调用了它。

把调用的代碼貼上來