100 doors in Pascal

Vad händer här?

program OneHundredDoors;
 
{$APPTYPE CONSOLE}
 
uses
  math, sysutils;
 
var
   AOpendoors  : String;
   ACloseDoors : String;
   i	       : Integer;
 
begin
   for i := 1 to 100 do
   begin
      if (sqrt(i) = floor(sqrt(i))) then
        AOpenDoors := AOpenDoors + IntToStr(i) + ';'
      else
        ACloseDoors := ACloseDoors + IntToStr(i) +';';
   end;
 
   WriteLn('Open doors: ' + AOpenDoors);
   WriteLn('Close doors: ' + ACloseDoors);
end.

100 doors från Rosettacode.org fungerar i regel väl men i detta fall får jag ett skumt resultat.
OPEN DOOR stämmer men CLOSED DOOR slutar på 93.
Även 94-99 borde var med men icke! Varför?

AOpendoors : AnsiString;
ACloseDoors : AnsiString;

Tack det fungerar perfekt med AnsiString!

Det har nog mest med min ålder att göra. Jag började med BASIC och ALGOL 1973 och då kändes PASCAL rätt något senare när PCn slog igenom.
ALGOL 60 som då kallades ALGOL används knappast idag och ALGOL 68 är rätt annorlunda.