用delphi批量导入某子目录下所有JPG图片文件到数据库

//保存图片到数据库
function imagesavetosql(dataset:TQuery;filename:String):boolean;
var
  imagejpg:TJPEGImage; //jpg图片
  MyStm:TMemoryStream;
begin
  result:=false;
  MyStm:=TMemoryStream.Create;
  imagejpg:=Tjpegimage.Create;
  if filename<>'' then
  begin
    imagejpg.LoadFromFile(filename);
    imagejpg.SaveToStream(MyStm);
    MyStm.Position:=0;
    TBlobField(dataset.FieldByName('pict')).LoadFromStream(MyStm); //不可与DMImage之类控件,因为其只支持BMP
    result:=true;
  end;
  MyStm.Free;
  imagejpg.free;
end;
//界面上添加TDirectoryListBox,TGauge控件; chk_road（注：checkbox控件）
procedure Tfrmpict.BitBtn2Click(Sender: TObject);
var
  dirlist:TStringList;
  i:Integer;
begin
  inherited;
  if chk_road.Checked  then
  begin
    dirlist:=TStringList.Create ;
    dirlist.Clear;
    try
      G