array of char -> PChar

procedure TForm1.FormCreate(Sender: TObject);
var
    ac1: array[1..1000] of char;
    ac2: array[1..1000] of char;
    pc1: Pchar;
    pc2: Pchar;
begin
    ac1[1]:='*'; //test char
    ac1[2]:=#0; //husk null terminater i pchar's
    getmem(pc1,1000);
    move(ac1,pc1^,1000); //nu i pchar'en
    messageDlg(string(pc1),mtInformation,[mbOk],0); //vil skrive en '*' i dlg-box
    move(pc1^,ac2,1000);
    getmem(pc2,1000);
    move(ac2,pc2^,1000);
    messageDlg(string(pc2),mtInformation,[mbOk],0); //skriver igen en '*'
    freemem(pc1); //husk dem her
    freemem(pc2);
end;

lækkert eksempel.. , Mange tak :)