1:
2:
3:
4:
5:

TForm1.Button1Click(Sender: TObject);
begin
  Label1.Left := Image1.Left + 50;  //irgendwas im Image festlegen
  Label1.Top := Image1.Top + 50;  //auch irgendwas festlegen ;)
end;					

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:

var
  Form1: TForm1;
  drag: boolean;

implementation

{$R *.dfm}

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 drag:=true;
end;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if drag then
 begin
  label1.Top:=Mouse.CursorPos.Y-Form1.Top;
  label1.Left:=Mouse.CursorPos.X-Form1.Left;
 end
end;

procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  drag:=false;
end;

end.					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const sc_dragmove = $f012;
begin
  ReleaseCapture;
  TWinControl(Label1).perform(wm_syscommand,sc_dragmove, 0);
end;