Ошибка Access violation at address

Помечает эту строку

s2 := p^;

procedure TForm1.Button4Click(Sender: TObject);
var
  s,s1,i, s2, p2:Integer;
  p:^Integer;
  ret: Cardinal;
begin
  memo1.Clear;
  s:= StrToInt(Edit1.Text);
  s1:=  StrToInt(Edit2.Text);
  p:=VirtualAlloc(nil,4096,MEM_COMMIT,PAGE_READWRITE);
  if Toolhelp32ReadProcessMemory(s, Pointer(s1), p,  SizeOf(p), ret) then begin
  s2:=0;
  p2 := SizeOf(p);
  For i:=1 to 2 do  begin
    s2 := p^;
    memo1.Lines.Add(IntToStr(s2));
    Inc(p);
end; end; end;

Подскажите пожалуйста, что надо исправить? Заранее, спасибо помощь