Export to Text from CxGrid(Developer Express Componen)

dah lama pengen ngulik-ngulik, sebelum jumatam posting dulu deh. hhe

procedure TfrmUlik.cxbtnTextClick(Sender: TObject);
var
  s : string;
  i : integer;
  sl : TStringList;
begin
  sl := TStringList.Create;
  with dmDiklat.quPeserta do
  begin
    while not Eof do
    begin
      s := '';
      for i:=0 to cxGrid1DBTableView1.ItemCount-1 do
        s := s + cxGrid1DBTableView1.Columns[i].DataBinding.Field.DisplayText + ' ';
        sl.add(s);
        Next;
        Application.ProcessMessages;
    end;
  end;
    sl.SaveToFile(ExtractFilePath(Application.ExeName)+'export.txt');
    sl.Free;
end;