过程声明错误

Question

代码如下：type
  TfmInOut = class(TForm)
    Label1: TLabel;
     
    procedure FormActivate(Sender: TObject);
     
  private
    { Private declarations }
    procedure uptdLabel;
  public
    { Public declarations }
  end;var
  fmInOut: TfmInOut;implementation
uses unEntry,。。;
{$R *.dfm}
错误信息如下：
[Error] unInOut.pas(52): Unsatisfied forward or external declaration: 'TfmInOut.uptdLabel'一头雾水，搞不清了，请指点一、二

Answer 1

Ctrl+shift+c就可以解决
因为你没写实现

Answer 2

没有实现
在implementation
下加procedure TfmInOut.uptdLabel;
begin
  
end;

Answer 3

你的过程没有定义
procedure Tform1.uptdLabel(Sender:Tobject);
begin
  主体
end