我把数据库记录导出为.csv文件时，字符型字段导出后前面的‘0’没了。该如何处理？

Assignfile(AFile,edit1.text+fieldbyname('nodeno').value+'_'+changedate(datetimepicker2.date)+'.csv');
    Rewrite(AFile);
    for i:=0 to fieldcount-1 do
    vstr:=vstr+fields[i].fieldName+',';
    Writeln(AFile,vstr);
    while not eof do
    begin
       vstr:='';
       for i:=0 to FieldCount-1 do
         vstr:=vstr++Fields[i].asstring+','
       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~问题在这里
       next;
       pbar.StepIt;
       Writeln(AFile,vstr);
    end;
   Closefile(AFile);