procedure PrintList(const BeginPointer,EndPointer:PDWORD);
var
  I:Byte;
  dBegin,dEnd:DWORD;
begin
  dBegin:=PDWORD(BeginPointer)^;
  dEnd:=PDWORD(EndPointer)^;
  for I := 0 to (dEnd-dBegin) div 4 do
  begin
    ShowMessage(IntToStr(dBegin+I*4));
    /// 10 14 18 22 26 30
  end;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  dBegin,dEnd:DWORD;
begin
  dBegin:=10;
  dEnd:=30;
  PrintList(@dBegin,@dEnd)
end;