delphi程序没有跳转到我想要的地方执行 怎么回事？不知道都有什么原因 该怎么写？我没有足够的积分 谁能帮帮我

Question

我先声明一个公共变量startcheck初始化为false
public
    startcheck:Boolean;startcheck:=False;
然后我弄个编辑框在它的OnKeyPress事件中写代码,我想在这个编辑框中输入一些数字然后回车实现一些功能，代码如下
procedure TSimpleForm.RzEdit2KeyPress(Sender: TObject; var Key: Char);
begin
if (Key=#13) and (Trim(RzEdit2.Text)<>'')  then
begin
    
        RzLabel.Caption:='testing';
        Term.Clear;
        Timer1.Enabled:=True;
        Term.Lines.Clear;
        OpenPort();
        startcheck:=True;
end;procedure TSimpleForm.Timer1Timer(Sender: TObject);
begin
if (Length(Trim(Term.Lines.Text))>0) and startcheck then
begin
startcheck:=False;
RzEdit1.Text:='';
RzEdit1.Text:= Trim(Term.Lines.Text);
ClosePort();
end;procedure TSimpleForm.RzEdit2Change(Sender: TObject);begin
if not(startcheck) and (Length(Trim(Term.Lines.Text))>0) then
begin
............end;我想实现的是在编辑框输入数字 然后回车 出现了 testing ，但是没有跳转到TSimpleForm.RzEdit2Change执行  不知道为什么？我这个startcheck变量控制正确吗？我想让程序在执行到显示出来testing之后 执行 procedure TSimpleForm.RzEdit2Change中的代码 该怎么写

Answer 1

你press事件中根本就没有去调用和触发RzEdit2Change，怎么会执行呢

Answer 2

我用的是startcheck变量控制的啊 那该怎么调用呢？