For x:=0 to query1.RecordCount-1 do begin if query1referencia.Value='150' then begin query1.Prior; anterior:=query1referencia.value; query1.next; query1.next; siguiente:=query1referencia.value; end else query1.next; end;