请问这问题出在哪了。先谢谢了

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
  private
  procedure WMPant(var msg : TWMPant):message:WM_PANT;
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TWMPant(var msg : TWMPant);
begin
messagebeep(0);
inherited;
end;end.
 [Error] Unit1.pas(12): Undeclared identifier: 'TWMPant'

Answer 1

procedure   WMPaint(var   Message:   TWMPaint);   message   WM_PAINT; 少打了个 I 

Answer 2

windows只有WM_PAINT消息，他只认这个

Answer 3

晕！手快了一下，有问题的两行要这么写：procedure WMPaint(var msg: TWMPaint); message WM_PAINT; 
procedure TForm1.WMPaint(var msg : TWMPaint);