[Lost_Fish]

Попробуй передавать в процедуру не ссылку PChar а строку String,
Процедура StringBreakAPart у тебя в принципе не должна менять входящую строчку S а значит

Код:

BranchNameEdit.Text:=txtmsg;

можешь и до процедуры вызывать, если же нужно чтоб изменяла то Const на Var и в теле StringBreakAPart отразить изменения и ещё раз работай со строчкой а не с указателем