Var B: Boolean;

Begin
  B := True;

  If B = False Then ... // wird nicht ausgelöst
  If B = True Then ... // wird ausgelöst (OK, hier funktioniert es mal)

  If not B Then ... // wird nicht ausgelöst
  If B Then ... // wird ausgelöst



  B := Boolean(2); // ist im Grunde auch True, da TRUE <> 0

  If B = False Then ... // wird nicht ausgelöst
  If B = True Then ... // wird auch nicht ausgelöst !!!

  If not B Then ... // wird nicht ausgelöst
  If B Then ... // wird ausgelöst



  B := Boolean(0); // oder B := False;

  If B = False Then ... // wird ausgelöst
  If B = True Then ... // wird nicht ausgelöst

  If not B Then ... // wird ausgelöst
  If B Then ... // wird nicht ausgelöst
End;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
  Text: String;
  i: integer;

begin
  Text := Socket.ReceiveText;
  if Pos('\\', Text) = 1 then
    Memo2.Lines.Add(Text)
  else
    Memo1.Lines.Add(TimeToStr(now) + ': ' + Text);
  For i := 0 to ServerSocket1.Socket.ActiveConnections - 1 do
    with ServerSocket1.Socket.Connections[i] do
      if connected then SendText(Text);
end;

Var
  IP: string;

begin
  Label3.Caption := IP;
  if ClientSocket1.Active then
    ClientSocket1.socket.SendText('\\' + IP);
end;