>>513
よくみれ

type
　DateAdd = class(TThread)
　private
　　{ Private 宣言 }
　　FileNameA:String;
　protected
　public 　←ココ
　　procedure Execute; override;
　　constructor Create(FileName:String);
end;