delphi快速存为excel格式（csv），出问题！

Question

delphi 7 运行不了。怎么解决？
    uses ADOInt; 
     
    procedure TForm1.Button1Click(Sender: TObject); 
    var 
     Rs : string; 
     SL: TStringList; 
    begin 
     try 
     SL := TStringList.Create; 
     Rs := AdoQuery1.Recordset.GetString(adClipString, -1, #59,#13, ''); 
     SL.Text := Rs; 
     SL.SaveToFile('C:\MyQry.csv'); 
     finally 
     SL.Free; 
     end; 
    end;
之前用delphi5 好像可以！