Ubicar el siguiente registro de un LOCATE ??

[[enecumene]]

Hola Amadis, puedes utiliza este ejemplo que se encuentra en el libro La Cara Oculta de Delphi 4 de Ian Marteens:

Creamos una funcion:

Código Delphi [-]
//Buscar, para establecer el filtro y buscar el primer registro:
function TDlgBusqueda.Buscar(ATable: TTable): Boolean;
var
NumCampo: Integer;
begin
AsignarTabla(ATable);
if ShowModal = mrOk then
begin
NumCampo := Integer(cbColumnas.Items.Objects[
cbColumnas.ItemIndex]);
FTabla.Filter := Format('[%s] = %s',
[FTabla.Fields[NumCampo].FieldName,
QuotedStr(edValor.Text]);
Result := FTabla.FindFirst;
if not Result then
Application.MessageBox('Valor no encontrado', 'Error',
MB_ICONERROR + MB_OK);
end
else
Result := False;
end;

La implementación del comando Buscar siguiente
sería algo así:

Código Delphi [-]
function TDlgBusqueda.BuscarSiguiente: Boolean;
begin
Result := FTabla.FindNext;
if not Result then
Application.MessageBox('Valor no encontrado', 'Error',
MB_ICONERROR + MB_OK);
end;

espero que te ayude.

Saludos.