Netspirit, извините, но весь код я показать не могу.
Сделал как вы говорили, но теперь ошибка Not enough actual parameters.
В строке с TcpClient1 := TTcpClient.Create;