1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

type
  tlabel2 = class(tlabel)
    public
      procedure mouseclick(sender: tobject);
  end;

var
  Form1: TForm1;
  tl: tlabel2;
  counter: integer = 0;

procedure tlabel2.mouseclick(sender: tobject);
begin
   form1.Caption := (sender as tlabel2).name;
   form1.edit5.text := (sender as tlabel2).Caption;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

   if (key = 37) then
     tl.left := tl.left -1 <-- Funktioniernt
   else if (key = 38) then
     (sender as tlabel2).top := (sender as tlabel2).top -1 <-- Ungültige Typenumwandlung
   else if (key = 39) then
    (sender as tlabel2).left := (sender as tlabel2).left +1
   else if (key = 40) then
     (sender as tlabel2).top := (sender as tlabel2).top +1;
end;

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
  tl := tlabel2.Create(nil);
  tl.name := 'test'+inttostr(counter);
  tl.left := 200+counter*2;
  tl.top := 300+counter*4;
  tl.Caption := 'xxxxxx'+inttostr(counter)+' '+tl.name;
  tl.width := 50;
  tl.height := 100;
  tl.Parent := form1;

  tl.OnClick := tl.mouseclick;
  inc(counter);
end;					

1:

  ShowMessage(Sender.ClassName);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

//Label wird erstelltn in der Form1

procedure TForm1.ToolButton1Click(Sender: TObject);
var
  fstyle: string;
begin

  tl := tlabel2.Create(nil);

  tl.name := 'feld'+inttostr(counter);
  tl.left := 200+counter*2;
  tl.top := 300+counter*4;
  tl.Caption := '<feld>'+inttostr(counter)+' '+tl.name;
  tl.Parent := form1;
  tl.autosize := true;
  tl.Transparent := true;
  tl.Hint := 'X:'+inttostr(tl.Left)+' Y:'+inttostr(tl.Top);
  tl.ShowHint := true;

  tl.OnClick := tl.mouseclick;

  inc(Counter);

 end;

//Findcomponent in der Form3
   showmessage((form1.findcomponent('feld1') as TLabel2).caption);