Problem mit Bedingung in einer While-Schleife

[brechi]

mussu aufteilen

Delphi-Quellcode:

while pos('~',newmsg) > 0 then
begin
  tpos := pos('~',newmsg);
end;

oder halt mit einer repeatschleife machen