Попробуй передавать в процедуру не ссылку PChar а строку String,
Процедура StringBreakAPart у тебя в принципе не должна менять входящую строчку S а значит
Код:
BranchNameEdit.Text:=txtmsg;
можешь и до процедуры вызывать, если же нужно чтоб изменяла то Const на Var и в теле StringBreakAPart отразить изменения и ещё раз работай со строчкой а не с указателем