[NumLock]

Код:

var
  s: String;
  p: PChar;
begin
  s:='Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms';
  p:=PChar(s);
//  p:=@s[1];
  Edit1.Text:=p;
//  Edit1.Text:=StrPas(p);
end;

Код:

function StrPas(const Str: PChar): string;
begin
  Result := Str;
end;