H>>Собственно, эту цель (минимум кодирования) VCL и преследует (по большей части это все же относится именно к гую), странно, что я тебе это объясняю

Uses Windows;
begin
 MessageBox(0,'NO GUI!','Info',mb_Ok or mb_IconInformation or mb_ApplModal or MB_DEFBUTTON1);
end.

G>1)Что значит "берешь" ?? Ведь его надо разместит на форме Ах да, гениальные люди придумали контейнеры для компонент без визульной формы (как он называется уже не помню). Все остальные люди для этого обычныи классами пользуются.

var CmdTCP:TIdCmdTCPServer;
begin
  CmdTCP:=TIdCmdTCPServer.Create;
  try
    CmdTCP.OnXXXXXXCommand := DoXXXXXCommand;  //<- назначаем обработчики, устанавливаем свойства
  finally CmdTCP.Free; end; 
end;

  Inf:=TIniFile.Create('MyConfig.ini');
  try
    CmdTCP.Port := Inf.ReadInteger('Server','Port',1234);
  finally Inf.Free; end;

DM>>Разве великий и уважаемый специалист не видит, что в приведенном исходнике не используется VCL и GUI? Странно.

G>>>>>1)Что значит "берешь" ?? Ведь его надо разместит на форме Ах да, гениальные люди придумали контейнеры для компонент без визульной формы (как он называется уже не помню). Все остальные люди для этого обычныи классами пользуются.

DM>>>>var CmdTCP:TIdCmdTCPServer;
DM>>>>begin
DM>>>>  CmdTCP:=TIdCmdTCPServer.Create;
DM>>>>  try
DM>>>>    CmdTCP.OnXXXXXXCommand := DoXXXXXCommand;  //<- назначаем обработчики, устанавливаем свойства
DM>>>>  finally CmdTCP.Free; end; 
DM>>>>end;
DM>>>>

DM>>Будет работать. Хотя сомневаюсь, что ты сможешь откомпилировать . Тут же НЕТ нэту

DM>>ГДЕ? НУ ГДЕ ТУТ ФОРМА? ХОТЬ ОДНА? Очередные проблемы со зрением.

Uses ..........
{$APPTYPE CONSOLE}

type
   TExample=class
   private
     FPOP3:TIdPOP3;
   public
     Constructor Create; virtual;
     Destructor Destroy; override;
     procedure OnPOP3Status(ASender: TObject; const AStatus: TIdStatus;  const AStatusText: String);
     procedure DoWork;
   end;

Constructor TExample.Create;
begin
  FPOP3 := TIdPOP3.Create;                               // POP3 
  FPOP3.OnStatus := OnPOP3Status;                        // обработчик события 
  FPOP3.Host := CfgReader.GetStringValue('POP3','Host'); // извини, но код этого класса приводить не буду...
end;

Destructor TExample.Destroy;
begin
  FreeAndNil(FPOP3);                                     // чистим за собой ненужное
end;

procedure TExample.OnPOP3Status(ASender: TObject; const AStatus: TIdStatus;  const AStatusText: String);
begin
  writeln(AStatusText);                                  // на консоль выводим статус
end;

Procedure TExample.DoWork;
begin
  try
    FPOP3.Connect;                                       // пытаемся соединится
    except on E:Exception do          
       writeln(Format('Connection error to host "%s"! '+E.Message,[POP3.Host]));  // на консоль выведем ошибку, если что не так
  end;
  if FPOP3.Connected then                                // соединились?
     begin
       writeln('Messages count:',POP3.CheckMessages);    // проверили, сколько там сообщений
       FPOP3.Disconnect;                                 // отсоединились
     end;
end;

var Example:TExample;
begin
   Example:=TExample.Create;                             // создаем экземпляр класса
   try
     Example.DoWork;                                     // заставляем работать
   finally Example.Free; end;                            // чистим уже ненужное
end.

DM>>Нужно же учится у великих

DM>>>>Перекомпиляция для переустановки свойств говоришь? Вах, дарагой, а мы и не подозревали, что есть конфиги. Савсэм.

DM>Inf:=TIniFile.Create('MyConfig.ini');
DM>  try
DM>    CmdTCP.Port := Inf.ReadInteger('Server','Port',1234);
DM>  finally Inf.Free; end;
DM>

H>Скажем, берешь компонент от Indy, TIdCmdTCPServer, и дизайнишь его биндинги, команды/действия, отклики, обработчики ввода/вывода, перехватчики, определяешь потоковую модель ну и так далее. Все кроме реализации команд делается в дизайнере.