[Delphi] Zamiana jednej litery w PChar wywala błąd

Witam. Mam taki kodzik który zamienia po kropce litere na wielką w zmiennej PChar:

 var
   Data: PChar;
   i: integer;
begin
  Data := '.abcd';
  for i:=0 to Length(Data)-1 do
  if i>1 then
  begin
    if (Data[i-1]='.') then
    begin
      Data[i] := UpCase(Data[i]);
    end;
  end;

Jednak kończy się to Acces Violation. Tak samo dzieje się gdy:

Data := '.abcd';
Data[1] := '1';

na stringu spróbuj PChar to chyba wskaźnik na tablicę znaków jest - stosowany raczej tylko po to żeby spłodzić coś w delphi co zgodne z winshitapi bedzie

StrPos, StrLen, StrUpper - te funkcje operują na ASCIIZ. Poczytaj.