IdFTPServer ожидание соединения

[Spownc]

Драстье кодеры)
Подскажите, как в сервере ФТП(на IdFTPServer) сделать ожидание соединения?
Дело в том, что в моей программе не должно быть окон. Она должна висеть в процессах(не мешая пользователю). Но в исходнике, который я взял за основу(sources.ru) это реализовано на консольном окне приложения. Пока окно открыто - сервер работает.

begin
 with TFTPServer.Create do
  try
   SetConsoleTitle('FTP Server running ...');
   writeln('Running, press [ Enter ] to terminate ...');
   readln;
 finally
  Free;
 end;

Пробовал заменить на бесконечный цикл... прога виснет.
Подскажите как быть?