String in Char Array einfügen

[abi]

Hallo
ich hoffe ihr könnt mir wie immer helfen.

Ich habe mehrer Edit Felder in diese Schreibe ich dann Zahlen.
Dann mache ich aus allen Edit Feldern einen String.

Diesen String 's' möchte ich jetzt in meinen Char Array rein kopieren.

Aber ich weiss leider nicht wie.

Ein Teil meines codes.

Code:

PCanCode = Array[0..22] of Char;   // ist in einer anderen Unit gespeichert

procedure TForm12.Button1Click(Sender: TObject);
var s: string;
    CodeTest: PCanCode;
    i: Integer;
begin
  s := Edit1.text + Edit2.Text + Edit3.Text + Edit4.Text + Edit5.Text + Edit6.Text + Edit7.Text + Edit8.Text + Edit9.Text + Edit10.Text + Edit11.Text;

 ShowMessage(s);
 //CodeTest[0] := '$';
 for i := 0 to 22 do begin
 CodeTest[i] := s[i];
 ShowMessage(CodeTest[i]);
 end;
 //geht nicht, fehler meldung wegen $ Zeichen, mit und ohne
// send_Canopen(CodeTest, Knotennummer);

end;

Danke
abi