var
myString : AnsiString;
myCharPtr : PAnsiChar;
i : Integer;
begin // Создание строки AnsiChar
myString := 'Hello World'; // Указатель на первый символ в строке
i := 1;
myCharPtr := Addr(myString[i]); // Показ всех символов строке
while i <= length(mystring) do
begin
ShowMessage(myCharPtr^);
Inc(i);
Inc(myCharPtr);
end;
end;
