procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text :='4293985761';
ShowMessage(IntToStr(StrToInt(Edit1.Text )));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i :DWORD ;
begin
i :=4293985761;
ShowMessage(IntToStr(i));
end;