String in Char Array einfügen

[scp]

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);