String --> PChar

VarS: String;
    P: PChar;

....

P:=PChar(S);