Цитата:
	
	
		| 
			
				 Сообщение от Aristarh Dark 
				Я знаю, оба указателя, оба бессмысленные. 
			
		 | 
	
	
 
Может для кого то и бессмысленные, но для меня это важно, ответьте:
var
  
	Код:
	Form1: TForm1;
S:String;
p2:pointer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
S:='Test'; 
p2:=pointer(S);
end;
end. 
 
Скажите что находится в p2 ???