奇怪的代码,为什么?

1.
procedure TfrmMain.btnPanClick(Sender: TObject);
begin
  Map1.CurrentTool:=miPanTool;
  memo1.Lines.add('2222');
end;
这段代码能通过,能显示字,但经过'frmMain.memo1.Lines.add('2222');'改动后能通过,但不能不显示字,为什么?2.
procedure position;
begin
  showmessage('erere');
  frmMain.memo1.lines.add('ererer');
end;
这段代码置于frmMain同一窗体单元文件中,作为自定义过程,能通过,showmessage('erere')能显示字,但frmMain.memo1.lines.add('ererer')不能显示字,为什么?