最后一句怎么会编译错误呢?

Question

procedure TForm3.Button2Click(Sender: TObject);
  var
    CRange:TCharRange;
    GText:array of char;
  begin
    SendMessage(mWnd,EM_EXGETSEL,0,integer(@CRange));
    setlength(GText,CRange.cpMax-CRange.cpmin);
    sendmessage(mWnd,EM_GETSELTEXT,0,integer(@GText));

Answer 1

加了的,就是我省略了.
______________________
var
    CRange:TCharRange;
    GText:array of char;
  begin
    SendMessage(mWnd,EM_EXGETSEL,0,integer(@CRange));
    setlength(GText,CRange.cpMax-CRange.cpmin);    
    sendmessage(mWnd,EM_GETSELTEXT,0,integer(@GText));
  end;

Answer 2

加了的,只是我省略了.
______________________
var
    CRange:TCharRange;
    GText:array of char;
  begin
    SendMessage(mWnd,EM_EXGETSEL,0,integer(@CRange));
    setlength(GText,CRange.cpMax-CRange.cpmin);    
    sendmessage(mWnd,EM_GETSELTEXT,0,integer(@GText));
  end;

Answer 3

sendmessage(mWnd,EM_GETSELTEXT,0,integer(@GText[0]));

Answer 4

sendmessage(mWnd,EM_GETSELTEXT,0,integer(@GText[0]));