Wycinanie przychodzacego TXTu

Zrobilem cos takiego:

if copy (s, 1, 13)='SzybkoscKlik ' then
begin
GetMem (TPC, Length (s)-2);
StrPCopy (TPC, extract (s, 14, 15));

Czyli delphi wycina wszystko miedzy 14 a 15 litera i nazywa to TPC

Ale bym chcial jeszcze zrobic aby wycinalo mieczy 14 litera a znakiem #

Robilem tak:

if copy (s, 1, 13)='SzybkoscKlik ' then
begin
GetMem (TPC, Length (s)-2);
StrPCopy (TPC, extract (s, 14, '#'));

i tak:

if copy (s, 1, 13)='SzybkoscKlik ' then
begin
GetMem (TPC, Length (s)-2);
StrPCopy (TPC, extract (s, 14, '#'(s)));

ale nie dzialalo :( :( :(

moze wy wiecie jak to zrobic??

ps. s := Socket.ReceiveText;

Jeżeli to są zwykłe stringi, to nie wiem, dlaczego tak kombinujesz:
TPC := Copy(s, 14, Pos('#', s));