Exportar en un archivo txt

[alfredosg19]

Hola, estoy intentando exportar de un TADO a un archivo de texto, el problema es que a la hora de guardarme los datos en el archivo sólo me guarda el primer registro, no entiendo el motivo por el cual se salta el While y se sale del bucle,. Si alguien pudiera ayudarme le estaría muy agradecido. GRAAACIASSS.

 procedure TfrmClients.sbExportaClick(Sender: TObject);
 var NomArxiu: String;
 	S:string;
 	f:Textfile;
 begin
 If sdGuarda.Execute then
   Begin
 	NomArxiu:=sdGuarda.Filename;
 	AssignFile(F,'Dades.txt');
 	Rewrite(F);
 	ADOTClient.First; 
   While not ADOTClient.EOF do
 	Begin
 	  s:='#';
 	  s:=s+ADOTClient.FieldbyName('CodiT02').asString+'#';
 	  s:=s+ADOTClient.FieldbyName('NomT02').asString+'#';
 	  s:=s+AdoTClient.FieldbyName('DireccioT02').asString+'#';
 	  s:=s+AdoTClient.FieldbyName('PoblacioT02').asString+'#';
 	  s:=s+AdoTClient.FieldbyName('CodiPostalT02').asString+'#';
 	  s:=s+AdoTClient.FieldbyName('ProvinciaT02').asString+'#';
 	  s:=s+AdoTClient.FieldbyName('Telf1T02').asString+'#';
 	  s:=s+AdoTClient.FieldbyName('Telf2T02').asString+'#';
 	  s:=s+AdoTClient.FieldbyName('FaxT02').asString+'#';
 	  Writeln(F,s);
 	  ADOTClient.Next; 
 	end;
 end;
 Closefile(F);
   end;