저는 tstr[1]이라고 써도 에러가 나지 않는군요....쩝쩝쩝...
혹시 이방법을....

Var
   temp : Pchar;
   temp2: char;
Begin
   temp2 := Pchar(Copy(tstr, 1,1))[0];
...
...
ENnd;

참고로 억세스 위반에러라는 점 착안하여 다시한번 디버깅해보셔요...