Не выполняется код после вызова другой процедуры...

[sorockinalex]

Есть одна форма в bpl пакете, открытая как Showmodal, в ней код передачи сообщения парент-форме, которая её вызывала:

procedure TFAddBranchCompany.AddButtonClick(Sender: TObject);
var
  txtmsg:string;
begin
...
  Self.Close;
  SendMessage(ParentHandle, MY_MESSAGE, 0, DWORD(PChar(txtmsg)));
end;

Парент-форма тоже является пакетом bpl и тоже была открыта как Showmodal из другой формы, в ней код приёма сообщения:

procedure TFBranchAndLocation.MessageReceiver(var msg: TMessage);
var
  txtmsg: PChar;
  InputPars:TStringList;
begin
  txtmsg := PChar(msg.lParam);
  msg.Result := 1;

  BranchNameEdit.Text:='12345';

  InputPars:=TStringList.Create();
  StrBreakApart(txtmsg, '<BR>', InputPars);

  BranchNameEdit.Text:='12345';

  try
    BranchNameEdit.Text:=InputPars[0];
    BranchCityEdit.Text:=InputPars[1];
  except
  end;
  InputPars.Free();
end;

Процедура преобразования строки в StringList расположена в пакете DataModule.bpl

procedure StrBreakApart(const S, Delimeter: string; Parts: TStrings);
var
  CurPos: integer;
  CurStr: string;
begin
  Parts.clear;
  Parts.BeginUpdate();
  try
    CurStr := S;
    repeat
      CurPos := Pos(Delimeter, CurStr);
      if (CurPos > 0) then
      begin
        Parts.Add(Copy(CurStr, 1, Pred(CurPos)));
        CurStr := Copy(CurStr, CurPos + Length(Delimeter),
          Length(CurStr) - CurPos - Length(Delimeter) + 1);
      end
      else
        Parts.Add(CurStr);
    until CurPos = 0;
  finally
    Parts.EndUpdate();
  end;
end;

Смысл в том, что присвоение значения в поле на форме работает только до вызова этой процедуры. Строчка кода BranchNameEdit.Text:='12345' MessageReceiver, помеченная в коде красным, не выполняется. Почему так???

[Stilet]

не выполняется.

Даже при трассировке?

[sorockinalex]

я даже не знаю как делать трассировку... подскажите пожалуйста!
то есть, как сказать, не выполняется, он выполняется, но полю ничего не присваивается почему-то...

трассировку попробую сделать, нашёл в яндексе...

[sorockinalex]

не получается, делфи виснет, проект имеет около 8 модулей, все состоят из bpl... код, который не выполняется находится в одном из пакетов...

но я делал Showmessage до и после процедуры StrBreakApart - showmessags появляется и до и после... А вот именно поле после процедуры становится недоступным, или в памяти что-то...