[supernewbie]

var
s:string;

pck:=s;

s:=buf;

догадайся что куда