간단하게 String을 PAnsiChar로 변환하기

function StringToPAnsiChar(AString: string): PAnsiChar;
begin 
  Result := PAnsiChar(AnsiString(AString)); 
end;