图片保存

Question

if not DirectoryExists(fieldbyname('ssdq')) then  //查找有没有这个目录
CreateDir(fieldbyname('ssdq'));  //创建目录
end;
Image1.Picture.SaveToFile('c:\'+dm.CDS_GB_01.fieldbyname('ssdq').AsString +'\'+dm.CDS_GB_01.fieldbyname('gbkh').asstring+'.jpg');
dm.CDS_GB_01.FieldValues['photo']:=('c:\'+dm.CDS_GB_01.fieldbyname('ssdq').AsString +'\'+dm.CDS_GB_01.fieldbyname('gbkh').AsString+'.jpg');
我这个目的是 保存时 如果 c盘目录下没有 lsdq字段的目录 自动创建 然后保存图片上去
运行时出错 提示没有 ssdq的目录  
怎么查找有没有这个目录 怎么自动增加
请教教