procedure tform1.button1click(sender: tobject); var ptext :dword; data :string; begin data := inttostr(ptext); end;