[leogobo]

Bueno, este es el codigo completo

Código Delphi [-]
procedure TForm1.idKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  ultimo: string;
begin
    if Key = 13 then
      begin
              dbf1.Last;
              ultimo:=dbf1.FieldByName('id').AsString;
              dbf1.First;
       while id.Text <> dbf1.FieldByName('id').AsString do
       begin
         if dbf1.FieldByName('id').AsString=ultimo then
             begin
           break;
             end;
         dbf1.Next;
       end;

  end;
end;