Problem mit Bedingung in einer While-Schleife

[MrBona]

Also... ich hab hier folgendes:

Delphi-Quellcode:

  if Prot = 'l:' then
  begin
    ChatUserOutput.Clear;
    if NewMsg = '' then
    begin
      NewMsg := Msg
    end;
    while TPos := Pos('~', NewMsg) do
      User := Copy(NewMsg, 1, TPos-1);
      ChatUserOutput.Items.Add(User);
      NewMsg := Copy(NewMsg, TPos+1, length((NewMsg - length(User)) - 1);
    end;
  end;

Mein Problem ist, das die Bedingung der while Schleife kein boolean ist. In anderen Programmiersprachen wie etwa PHP hat nämlich eine Zuweisung einen Rückgabewert von true oder false. In Delphi wohl leider nicht. Wie kann ich das also machen?
Danke schonmal für die Hilfe