您可以使用SyncObjs Unit及其类（如TEvent）使其保持等待状态并一直打开，直到Event对象从您的Indy线程收到信号。

program YourConsoleProgram;

uses
  System.SysUtils,
  Winapi.Windows;

var
  Msg: TMsg;
  bRet: LongBool;

begin
  try
    { your program logic here }
    { start your own threads, tcp servers, etc. }

    // And this is Win32 Native Console Message Loop:
    repeat
      bRet := Winapi.Windows.GetMessage(Msg, 0, 0, 0);

      if Int32(bRet) = -1 then
      begin
        // Error
        Break;
      end
      else
      begin
        TranslateMessage(Msg);
        DispatchMessage(Msg);
     end;
   until not bRet;
 except
    on E: Exception do
    begin
      // do something with exception
      Writeln(E.Classname, ': ', E.Message);
    end;
  end;
end.

我不太明白你需要做什么，但也许像这样的事

program Project1;

{$APPTYPE CONSOLE}

uses
  Forms,
  Unit1 in 'Unit1.pas' {DataModule1: TDataModule};

begin
  Application.Initialize;
  Application.CreateForm(TDataModule1, DataModule1);
  while not Application.Terminated do
    Application.ProcessMessages;
end.

它是一个控制台应用程序，当控制台关闭时它将终止。2你可以在数据模块中使用Indy组件。

• • 编辑：**

没有Forms单元的替代方案是：

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows;

var
  Msg: TMsg;
begin
  while integer(GetMessage(Msg, 0, 0, 0)) <> 0 do begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
end.

然而，我认为这不会与大多数Delphi组件一起工作-我不知道Indy，但如果它的一个单元带来了Forms单元，那么第一个版本是IMO首选。

对于一个永不终止的程序，你所需要的只是一个无限循环。你的C++程序包含一个无限循环： Delphi 的TApplication包含一个非常类似的不定循环。如果你使用的是控制台应用程序而不是TApplication，你所要做的就是编写自己的不定循环，并将其放在调用堆栈底部的过程中。
确定一个终止条件，创建一个while循环，写为while not condition do，或者如果你真的不想让它终止，写为while true do，然后把你的TCP服务器逻辑放在循环体中。

**编辑：**未将CPU挂起在100：

while true do
begin
  DoSomethingWithTCP;
  Sleep(0); 
end;

Sleep（0）调用在剩余的时间片内将CPU交还给Windows，这使其不会将CPU固定在100。每个时间片大约为16毫秒长，如果您在主线程中所做的全部工作是接收消息并将其转交给其他线程，那么这应该绰绰有余，除非您的负载 * 非常 * 重。