В Delphi строки рассматриваются как массив символов, поэтому символ из строки можно получить по его индексу.
@s1[1] - означает адрес первого символа строки. Но, думаю, более понятно было бы записывать
p1 := @s1;