Also, das $ Zeichen kommt so nie rein, da du das ja dann mit for i := 0 to ... wieder überschreibst.
Probier mal
Delphi-Quellcode:
CodeTest[0] := '$';
for i := 1 to 22 do begin
CodeTest[i] := s[i];
ShowMessage(CodeTest[i]);
end;
also, las die Schleife mit 1 beginnen.
Oder ganz einfach:
StrPCopy(CodeTest, '$' + s);