[Lost_Fish]

И почему-то подчинённая форма, отправляющая сообщение не закрывается перед отправкой сообщения, хотя в коде написано закрыть её перед отправкой:

вот ответ на этот вопрос

Код:

procedure TCustomForm.Close;
var
  CloseAction: TCloseAction;
begin
  if fsModal in FFormState then
    ModalResult := mrCancel
  else
    if CloseQuery then
    begin
      if FormStyle = fsMDIChild then
        if biMinimize in BorderIcons then
          CloseAction := caMinimize else
          CloseAction := caNone
      else
        CloseAction := caHide;
      DoClose(CloseAction);
      if CloseAction <> caNone then
        if Application.MainForm = Self then Application.Terminate
        else if CloseAction = caHide then Hide
        else if CloseAction = caMinimize then WindowState := wsMinimized
        else Release;
    end;
end;

BranchNameEdit.Text:=txtmsg - работает
А здесь уже BranchNameEdit.Text:=txtmsg - не работает...

не понятно что за функция

Код:

StrBreakApart(txtmsg, '<BR>', InputPars);

может она что делает с твоей строкой

поставь ShowMessage до и после, проверь