Fórum EOF com Rsultado Errado #301262

Oi pra todos,a minha pergunta hoje e parace ser sobre um problema sobre natural,estou usando um datasource que vendo a propriedade recordcount esta retornando 5 registros mas o EOF esta sempre retornando True mesmo forçando o first alguem sabe a causa deste problema. E que estou querendo ontar uma estrução e tenho que fazer um loop nos registros e um codigo mais ou menos assim.

with self.ServicoSite.DataSet DO
BEGIN
First;
WHILE NOT EOF DO
BEGIN
strsql:=´Update SBDB.SERVIÇO_CREDENCIADO SET ´;
for i:=0 to FieldCount-1 do
begin
STRSQL:=STRSQL+Fields[i].DisplayName+´=´;
IF (Fields[I].DataType=ftString) or (Fields[I].DataType=ftWideString) THEN
STRSQL:=STRSQL+´´´´+ Fields[i].AsString+´´´,´
ELSE IF (Fields[I].DataType=ftFloat) OR (Fields.Fields[I].DataType=ftCurrency) or (Fields.Fields[I].DataType=ftInteger)THEN
STRSQL:=STRSQL+ inttostr(Fields[I].AsInteger)+´,´
ELSE IF (Fields[I].DataType=ftDate) OR (Fields[I].DataType=ftDateTime) OR (Fields[I].DataType=ftTimeStamp) THEN
STRSQL:=STRSQL+ ´TO_DATE(´´´+ FORMATDATETIME(´DD/MM/YYYY´,Fields[I].AsDateTime)+´,´´DD/MM/YYYY´´),´;
END;
END;
Next;
END;