Problem bei WriteBinaryData und Pchar

[me2u]

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var reg:tregistry;
    buffer : TByteArray = ($3c, $00, $00, $00, $01, $00, $00, $00, $01, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, 00, $0, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00);
begin
        reg:=tregistry.Create;
        reg.RootKey:=HKEY_CURRENT_USER;
        REG.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Connections',true) ;
        Reg.WriteBinaryData('DefaultConnectionSettings', buffer[0], Length(buffer));
        reg.CloseKey;
        reg.Free;
end;

Fehler:Cannot initialize local variables
So also ich arbeite zum ersten mal mit TByteArray...
Du hast irgendetwas von uses gesagt, muss ich da noch was definieren oder kommt vielleicht noch was unter type oder ein array of ?