一个关于GetTextBuf的问题?
procedure TForm1.Button1Click(Sender: TObject);
var
MyBuffer:Pchar;
MyBufSize:Integer;
begin
//Form1.SetBounds(20,20,20,20);
MyBufSize:=Button1.GetTextLen;
Button1.GetTextBuf(MyBuffer,MyBufSize);//执行时出错。Why????
StatusBar1.SetTextBuf(MyBuffer);
end;