Ошибка Identifier redeclared

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    Timer3: TTimer;
    Button1: TButton;
    Button2: TButton;
    CheckBox1: TCheckBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
p: TPoint;
begin
GetCursorPos(p);
Edit1.Text:= IntToStr(p.X); 
Edit2.Text:= IntToStr(p.Y);
end;
 
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height,
SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE );
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
begin
if getasynckeystate($11)<>0 then begin //Åñëè íàæàò Ctrl, òî ....
Timer1.Enabled:=False;
Timer2.Enabled:=False;
end;   end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit3.Text='' then
  showmessage('Íå çàïîëíåíî ïîëå "Çàäåðæêà"!')
  else begin
  Timer3.Interval:=StrToInt(Edit2.Text);
  Timer3.Enabled:=True;
  button1.Enabled:=False;
  button2.Enabled:=True;
end;    end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Timer3.Enabled:=False; 
  Timer1.Enabled:=True;
  Timer2.Enabled:=True;
  button2.Enabled:=False;
  button1.Enabled:=True;
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
var //Подчеркивает как ошибку
position: TPoint;
begin
if getasynckeystate($20)<>0 then begin 
Timer1.Enabled:=True;
Timer2.Enabled:=True;
Timer3.Enabled:=False;
button1.Enabled:=True;
button2.Enabled:=False;
end
else begin
SetCursorPos(StrToInt(Edit1.text),StrToInt(Edit2.text));
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;   end;
end.