Начал делать через WinExec.doConsoleExec но onConsoleResult срабатывает через раз
Add(Edit,12519565,161,147)
{
Left=15
Top=50
Width=330
}
Add(WinExec,7428597,98,147)
{
FileName="wmic diskdrive get serialnumber"
Point(doConsoleExec)
Point(onConsoleResult)
link(onConsoleResult,12519565:doText,[(146,167)(146,153)])
}