function ConvertStringToPChar(StringVal: String): PChar;
Var PCharString : Array[0..255] of Char;
begin
Result := StrPCopy(PCharString,StringVal);
end;