type
  TfrmServer = class(TForm)
    TCPServer: TIdTCPServer;
    procedure FormCreate(Sender: TObject);
    procedure TCPServerExecute(AThread: TIdPeerThread);

unit ServerMain;

interface

uses
  SysUtils, Classes,
  {$IFDEF Linux}
  QGraphics, QControls, QForms, QDialogs,
  {$ELSE}
  Graphics, Controls, Forms, Dialogs,
  {$ENDIF}
  IdBaseComponent, IdComponent, IdTCPServer;

type
  TfrmServer = class(TForm)
    TCPServer: TIdTCPServer;
    procedure FormCreate(Sender: TObject);
    procedure TCPServerExecute(AThread: TIdPeerThread);
  private
  public
  end;

var
  frmServer: TfrmServer;

implementation
{$IFDEF Linux}{$R *.xfm}{$ELSE}{$R *.DFM}{$ENDIF}

procedure TfrmServer.FormCreate(Sender: TObject);
begin
  TCPServer.Active := True;
end;


procedure TfrmServer.TCPServerExecute(AThread: TIdPeerThread);
begin
  with AThread.Connection do
  begin
    WriteLn('Hello from Basic Indy Server server.');
    Disconnect;
  end;
end;

end.