procedure WriteIni;
begin
winexec('net send localhost 123',SW_SHOW);
end;
вроде работает проверил
таймер запустить тоже получилось, только Timer1.Enabled := true; я считаю как то сложновато, то есть надо знась что писать после процедуры, что бы все заработало
зато щас понял что таким макором можно даже форму раскрасить

))
вобщем тему можно удалить, просто в книге нет рабочего примера например через кнопку как вызвать процедуру, приводятся процедуры не связынные с обьектом, висячие в воздухе