EventName in For-Schleife ändern

[Johannes013]

Wenn ich nun in der Prozedur abfrage von welchem Label das gesendet wurde, sagt er immer:
Undefinierter bezeichner: "Lab2";

Delphi-Quellcode:

var
  Form1: TForm;
  Lab: TLabel;
  i: integer;

{...}
procedure TForm1.LabMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
   if Sender=Lab{2} then halt;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
for i:=0 to 10 do
  begin
    Lab:=TLabel.Create(self);
    Lab.Parent:=Form1;
    Lab.Caption:='Caption '+IntToStr(i);
    Lab.Top:=i*15;
    Lab.Show;
    Lab.Name:='Lab'+IntToStr(i);
    Lab.OnMouseMove:=LabMove;
  end;
end;

Johannes