delphi 中导出数据到excel小记(不需要装excel但是保存比较麻烦)

procedure Txggl_sjrz_exefrm.FileSaveAsMnuClick(Sender: TObject);
var
I: Integer;
Str: String;
StrList: TStringList;
isSave:boolean;
title:string;
begin
try
  if savedialog1.Execute then
  begin
  isSave:=true;
  if FileExists(savedialog1.FileName) then
    if idno=messagebox(handle,'文件已經存在,是否繼續保存?','提示',mb_iconstop+mb_yesno) then
    begin
      issave:=false;
    end;
 if issave then
  begin
  StrList := TStringList.Create;
   with rsrzdbgrid do
   begin
      title:='';
      for i:=0 to Columns.Count-1 do
      begin
        title:=title+Columns[i].Title.Caption+#9;
      end;
     StrList.Add(title);
   end;
  with dm1.ADOQuery1  do
  begin
    First;
    while not Eof do
    begin
      Str := '';
      for I := 0 to FieldCount-1 do
      Str := Str + Fields[I].AsString + #9;
      StrList.Add(Str);
      Next;
    end;
   StrList.SaveToFile(savedialog1.FileName);
   messagebox(handle,'數據保存成功.','提示',MB_OK+MB_ICONINFORMATION);
   end;
   end;
   end;
finally
    Freeandnil(StrList);
end;

end;