怎么老是这样错啊(20分)

我的一个窗口类这样定义 我还想加入check函数,可老是出现这样的错误:
[Error] Unit1.pas(69): Unsatisfied forward or external declaration: 'TForm1.check'
类的定义如下:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, FileCtrl, Buttons;

type
TForm1 = class(TForm)
Bevel8: TBevel;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Bevel1: TBevel;
Bevel2: TBevel;
Bevel3Bevel3: TBevel;
Bevel4: TBevel;
Bevel3: TBevel;
Bevel5: TBevel;
Bevel6: TBevel;
Bevel7: TBevel;
sFileEdit1: TEdit;
dFileEdit1: TEdit;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
sFileEdit2: TEdit;
dFileEdit2: TEdit;
Bevel9: TBevel;
Bevel11: TBevel;
Bevel12: TBevel;
Bevel10: TBevel;
RadioButton3: TRadioButton;
sFileEdit3: TEdit;
dFileEdit3: TEdit;
sFileEdit4: TEdit;
dFileEdit4: TEdit;
sFileEdit6: TEdit;
sFileEdit5: TEdit;
dFileEdit5: TEdit;
dFileEdit6: TEdit;
sFileEdit7: TEdit;
dFileEdit7: TEdit;
sFileEdit8: TEdit;
dFileEdit8: TEdit;
sFileEdit9: TEdit;
dFileEdit9: TEdit;
sFileEdit10: TEdit;
dFileEdit10: TEdit;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
RadioButton7: TRadioButton;
RadioButton8: TRadioButton;
RadioButton9: TRadioButton;
RadioButton10: TRadioButton;
selectSourcFile: TBitBtn;
selectDestFile: TBitBtn;
startCopy: TBitBtn;
CheckBox1: TCheckBox;
OpenDialog1: TOpenDialog;
procedure selectSourcFileClick(Sender: TObject);
procedure selectDestFileClick(Sender: TObject);
//function checkPair(max : integer) : boolean;
private
{ Private declarations }
public
{ Public declarations }
procedure check(max: integer);/////////////////////////////就这一句
end;
谁能给我说说原因!!

你只定义了过程，没有过程的实现部分。
例：
procedure TForm1.check(max: integer);
begin
//你的处理代码
end;

max是一个函数，应该是保留字吧！！换一个参数看看！！

函数名也是自己定义的，不可能是保留字。

同意yostgxf，
procedure TForm1.check(max: integer);
begin
//你的处理代码
end;
不行就把 procedure check(max: integer）；这一句放到 private上边试试

同意yostgxf的
》》不行就把 procedure check(max: integer）；这一句放到 private上边试试》》有什么作用呢？

程序设计应该包括接口部分和实现部分，你的程序只有实现部分，没有接口部分
看这位仁兄要在什么地方实现了，要是在某个事件里面实现的话，那就加入produce事件名称.check,如果是在Tform中实现的话，就按照二楼的说法，如果你改完了出现了，标识符错误，你就看看别的地方，也许错误不是出现在这里！这是程序常常出现的现象！

我手头就有一本，很早以前也有过光盘版，可以帮你找一找