Как изменять свойства и функцыи объекта в памяти?

[VintProg]

Есть такой код но не че не меняетса:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Type
 PButton = ^TButton;

var
  Form1: TForm1;
  but : TButton;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 adrees : cardinal;

begin
 adrees := cardinal(@Button1);
 but.Caption := '1000';
 PButton(adrees)^ := but;
end;

end.

подскажите пожалйста.

[BOBAH13]

извените конечно, а вы вообще вдумывались на счет того, что написали ?

var
 adrees : cardinal;

begin
 adrees := cardinal(@Button1);
{ Button1 - класс, это по сути и так уже указатель на экземпляр, 
вы же делаите указатель на указатель экземпляра класса }

 but.Caption := '1000';
 { тут я даже удивлен... у вас but: TButton объявлена как глобальная, нигде вы ее (кнопку-класс) не создаете, тут вообще то должен быть Access Violation и т.п.}

 PButton(adrees)^ := but;
 { ну тут как бы в теории верно, но можно было и TButton(address) := but; но опять таки, ерунда }

И вывод, из того что я видел, можно сделать все это так:

Button1.Caption := '1000';

:D
Или же, если как вы шли... то так

var Address: DWord;
begin
  Address := DWord(Button1);
  TButton(Address).Caption := '1000';
end;

Пробуйте. Вроде все правильно написал.

[VintProg]

BOBAH13
Ну точно правильно спасибо большое!