[jhonny]

Siguiendo con tu ejemplo, prueba lo siguiente:

Código Delphi [-]
fs.Qs.SQL.Add('select * from Registros where anio=2007');    
fs.Qs.Open;
fs.Qs.First;
while not fs.Qs.EOF do
begin
   showmessage(fs.Qs.FieldByName('id_empleado').AsString+' '+fs.Qs.FieldByName('anio').AsString+''+fs.Qs.FieldByName('periodo').AsString);
fs.Qs.Next;
end;
fs.Qs.close;

El while, con ayuda del First, EOF y Next, recorreran el Query que te trae dicho resultado de 50 o mas registros.