Guardar registro en archivo Txt

[[Nbull]]

Hola forer@s, quiero guardar lo que hay en el registro seleccionado en mi RxDbgrid en un archivo Txt, para ello he usado el siguiente código:

Código Delphi [-]
procedure TFPrincipal.SpIGuardarClick(Sender: TObject);
var
   j:Integer;
   DatosEquipo,Datos,Ruta:String;
   //RegistrosMaster:String;
begin
   
  for j := 1 to DataSguardar.DataSet.FieldCount-1 do
    begin
      if (j>0) then
       Begin
         DatosEquipo:=DatosEquipo + DataSguardar.DataSet.Fields[j].FieldName+
         ': ';
       end;
       DatosEquipo:=DatosEquipo + DataSguardar.DataSet.Fields[j].AsString+#13;
      end;
Datos:=#9+#9+'********** DATOS CORRESPONDIENTES AL EQUIPO '+Dbedit1.Field.Text +
  '********** '+#13+#13+DatosEquipo+#13+#13+#13+#9
  +#9+'Datos suministrados por '+ 'el programa Equipos Informáticos ';  
  MemoGuardar.Lines.Clear;
   MemoGuardar.Lines.text:=Datos;
   SaveDialog1.Title:='Guardar configuración del equipo: '+Dbedit1.Field.Text;
   SaveDialog1.FileName:=Dbedit1.Field.Text;
   If savedialog1.Execute then
    begin
     Ruta:=Savedialog1.Filename;
     //Caption:=ExtractFileName(Ruta);
     MemoGuardar.Lines.SaveToFile(Ruta+'.txt');
     ShowMessage('Los registros se han guardado con éxito');
    end;
end;

Con este código consigo guardar el primer registro de la tabla en un archivo de texto.

Yo lo que quiero es que me guarde el registro que el usuario a seleccionado en el dbgrid.

Programo en delphi7 y MySql 3.23, con componentes nativos Zeos.

Un saludo y gracias.

[Neftali [Germán.Estévez]]

Utiliza el mismo DataSet que estés utilizando en el RxDBGrid.
Sustituye DataSguardar por el del Grid.

[[Nbull]]

Joer, que fallo más tonto, tengo la cabeza hecha cal de pensar en otras historias y no me habia dado ni cuenta.

Y como siempre recurro a los mejores maestros de Delphi de todo internet .

Bueno muchas gracias Neftali.Un saludo.