如何将d盘的某个文件下的目录树存到数据库中去? 能详细点吗?

Question

是将d盘某个目录下的文件存进数据库吧。
procedure TXXXX.Xxxx(const Path: string);
var
  SR: TSearchRec;
  found: integer;
begin
  found := FindFirst(Path + '*.*', faAnyFile, SR);
  while found = 0 do
  begin
    if SR.Attr <> faDirectory then
    begin
      Table1.Append;
      Table1.FieldByName('FileName').AsString := SR.Name;
      TBlobField(Table1.FieldByName('data')).LoadFromFile(Path + SR.Name);
      Table1.Post;
    end;
    found ;= FindNext(SR);
  end;
  FindClose(SR);
end;