[sorockinalex]

BranchNameEdit.Text:=txtmsg - работает

Код:

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

  BranchNameEdit.Text:=txtmsg;

  InputPars:=TStringList.Create();
  StrBreakApart(txtmsg, '<BR>', InputPars);
  try
    BranchNameEdit.Text:=InputPars[0];
    BranchCityEdit.Text:=InputPars[1];
  except
  end;
  InputPars.Free();
end;

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

Код:

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

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

  BranchNameEdit.Text:=txtmsg;

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