[FireBird] Exporter un IBQuery vers un fichier csv

function TDM.ExportIBQToCSV( const sSQL, sFileName: string; IBQ: TIBQuery): Boolean;
var
OutFile: TIBOutputDelimitedFile;
begin
result := false;

if not assigned(IBQ) then Exit;

with IBQ do begin
Close;
SQL.Clear;
SQL.Add(sSQL);
Prepare;
Open;
end;

OutFile := TIBOutputDelimitedFile.Create;
try
with OutFile do begin
Filename := sFileName;
ColDelimiter := ';';
RowDelimiter := #13#10; // #13 + #10;
OutputTitles := true;
end; // with
IBQ.BatchOutput(OutFile)
finally
OutFile.Free;
end; // try-finally
if FileExists(sFileName) then result := true;
end;

procedure Tf_synchro.Button1Click(Sender: TObject);
begin
if DM.ExportIBQToCSV('SELECT * FROM Matable', 'c:annonce.csv', DM.IBQ_Annonce)=false then
showmessage('erreur d''export vers csv');
end;