取文本框内容发送到LED显示频上，如何取，求解！

小栗子

procedure TfrmMain.BtnwenbenClick(Sender: TObject);
var
  W: Integer;
begin
        GetDeviceParam(FParam);
        FParam.notifyMode := NOTIFY_BLOCK;
        FParam.wmHandle := 0;
        FParam.wmMessage := 0;

  W := MakeRoot(ROOT_PLAY, COLOR_MODE_DOUBLE);
  AddChapter(w, 1000000, WAIT_CHILD);
  AddRegion(W, 0, 0, 64, 32, 0);
  AddLeaf(W, 10000, WAIT_CHILD);
  AddText(W, 0, 0, 64, 16, 1, 0,'取文本框内容', '宋体', 12, RGB(255,0,0), WFS_BOLD, 0, 0, 1, 0, 1, 0, 0, 0, 5000);  -------取得文本框输入内容，点击按钮发送。-----
  Caption := '正在执行命令或者发送数据...';
  Refresh;
  LED_Compress(w);
  Parse2(LED_SendToScreen(@FParam, w));
end;
end.

小栗子

VB  是这样取的文本发送的。。Delphi   没接触过。。高手快来啊。。。
Private Sub Command1_Click()
  Dim k As Long
  
  GetDeviceParam
  FParam.notifyMode = NOTIFY_EVENT
  FParam.wmHandle = Me.hWnd
  FParam.wmMessage = WM_LED_NOTIFY
  
  Dim aa As String
  aa = Now
  
  '这个操作中，ChapterIndex=0，RegionIndex=0，只更新控制卡内第1个节目中的第1个分区
  '如果ChapterIndex=1，RegionIndex=2，只更新控制卡内第2个节目中的第3个分区
  '以此类推
  k = MakeRegion(ROOT_PLAY_REGION, ACTMODE_REPLACE, 0, 0, SCREEN_COLOR, 0, 0, 192, 16, 0)
  AddLeaf k, 100000, WAIT_CHILD
  AddText k, 0, 0, 192, 16, 1, 0, Text1.Text, "宋体", 12, RGB(255, 255, 0), WFS_BOLD, 0, 0, 2, 5, 2, 5, 0, 0, 1000
  Parse (LED_SendToScreen(FParam, k))
End Sub