[Alegun]

Код:

if WinExec(
'telnet IP железки 23 {port} login password ! {вызов shell} logout goodbye{quit}'
, SW_HIDE) < 32 then
     ShowMessage('Не удалось выполнить WinExec!');