Delphi - Seleccion de Registros en Bateria

tengo un problema para almacenar mis registros en unas variables que ya defini. en mi tabla poseo dos tipos de datos. un numero de expediente y una fecha. siendo esta ultima la que almacenare e mis 5 variables. mi codigo es el siguiente...

Var
EXPED:String;
FEC1:String;
FEC2:String;
FEC3:String;
FEC4:String;
FEC5:String;

Begin
repeat
encontro:= DMCP.TT_Base.Findkey([exped]);
if encontro=true
fec5:=fec4;
fec4:=fec3;
fec3:=fec2;
fec2:=fec1;
fec1:=DMCP.TT_Base.fieldValues['FDecla'];
DMCP.TT_Base.Next;
Until Encontro=False;

Aqui el DMCP es el Datamodule y el TT_Base es mi tabla, F_decla es mi campo... me guarda las variables solamente cuando esta la funcion despues del repeat "comentada"

Mi problema es que no comprueba el campo exped y nunca se cumple la función until como le hago?

gracias!

El método FindKey sólo encuentra la primera ocurrencia de la clave, y como la búsqueda la realizas dentro del ciclo Repeat..Until, siempre encontrará el mismo registro y el ciclo no tendrá fin.

La búsqueda del primero registro debe estar fuera del ciclo repetitivo y la condición de salida del ciclo debe ser que se llegue al final del archivo o que cambie el valor del campo clave (asumo que se llama 'Exped'):

if DMCP.TT_Base.Findkey([exped]) then
repeat
fec5:=fec4;
fec4:=fec3;
fec3:=fec2;
fec2:=fec1;
fec1:=DMCP.TT_Base.fieldValues['FDecla'];
DMCP.TT_Base.Next;
Until (DMCP.TT_Base.Eof) or (DMCP.TT_Base.FieldByName('Exped').AsString <> exped);

Espero que te sirva.

Ernesto D'Spirito
http://www.latiumsoftware.com/es/index.php