DBGrid -> CSV

[Luckner]

Hallo Sir Rufo,
habe Deinen Beitrag zum o.g. Problem gefunden und würde diese Routine gerne benutzen. Nun habe ich Probleme mit der Übergabe der Variablen für diese Procedure. Ich rufe die Prcedure aus:
procedure TFrameArtikel.ButtonCsvExportClick(Sender: TObject);
var FileName : string;
begin
FileName := 'C:\temp\Artikel.csv';
procedure DataSetExportToCSV( const DatamoduleArtikel.DataModule1.IBDataSetArtikel : TIBDataSet; const FileName : string; const Header : boolean = False; const Delim : string = ';'; const Quote : string = '"' );
end;

procedure DataSetExportToCSV( const DataSet : TDataSet; const FileName : string; const Header : boolean = False; const Delim : string = ';'; const Quote : string = '"' );
begin
(wie Dein Vorschlag)
end;

Jetzt kommt der Fehler beim Compilieren: Anweisung erwartet, aber Procedure gefunden.

Könntest Du mir helfen? Habe sowieso Probleme mit den Procedure-Übergaben. Muß noch Menge Üben.

Danke, Luckner