ayuda con exportacion de DBgrid

[microbiano]

les comento:

la finalidad de hacer esto que dejar un archivo plano para poder migrarlo a otro sistema.

cargo un archivo de excel en un dbgrid, has ahi sin problemas, el problema radica cuando toda la informacion del dbgrid la quiero exportar a un archivo de texto para lo cual lo hago con el siguiente codigo:

Código Delphi [-]
procedure TForm1.btn1Click(Sender: TObject);
var
  i : integer;
  a: Integer;
  archivo : TextFile;
  ruta_archivo: string;
  Data : TDataSet;
  begin
  ruta_archivo := ExtractFilePath( Application.ExeName ) + 'prueba.txt';
  AssignFile( archivo, ruta_archivo );
  Data:=DBGRID1.DataSource.DataSet;
  Data.First;
    while not(Data.eof) do
     begin
       for i := 0 to dbgrid1.Columns.Count-1 do
       //for a:=0 to Data.RecordCount- 1 do
        begin
          if FileExists( ruta_archivo ) then
             Append( archivo )
          else
            Rewrite( archivo );
            writeln(archivo,Data.FieldByName(DBGrid1.Columns[i].FieldName).asString+'|');
        end;
        Next;
      end;
end;

bien el problema radica en que solo me guarda el primer registro del dbgrid.

ahora la pregunta es

1.- como hago para recorrer todos los registro del DBGRid y guardarlos en un archivo de texto

2.- hay alguna forma que despues de exportar toda esa informacion, se puedan eliminar de ese archivo caracteres como por ejemplo espacio comas,puntos, asteriscos,acentos, caracter de numero

3.- me podrian ayudar por favor.