，转 Delphi指针如何指向使用with开域语句创建的无名组件对象？

procedure TForm1.Button1Click(Sender: TObject);

var

P: Pointer;

begin

P := nil;{洗得干干净净一尘不染}

with TButton.Create(Self) do begin

asm

mov P, eax

end;

TButton(P).Caption := 'All Right!';

Parent := Self;{以下是开域语句的常见用法了}

Left := 100;

Top := 100;

Width := 100;

Height := 30;

Show;

end;

end;