Repeat

Como eu utilizo o comando Repeat?

Eu tenho o seguinte comando: Como eu faço para que toda vez que o recordcount do if **** seja igual a um repita o WITH e quando for igual a UM ele passe direto?

with QryAux do
begin
Close;
CommandText := ´select * from FICHALEI where CODUSU = ´+
IntToStr( CODUSU )+ ´ and COMPET = :Par0´;
Params[0].AsDate := Compet;
Open;
end;{ QryAux }

**** if QryAux.RecordCount = 1 then
QryGera.Next;