1:
2:

Horizontale_Aufloesung:=Screen.Width;
Vertikale_Aufloesung:=Screen.Height;					

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:

var
  XStart: Integer;
  YStart: Integer;
  Draging: Boolean;

procedure TMain.ZoneWindowMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  {Form Start Dragging}
  XStart := X;
  YStart := Y;
  Draging := True;
end;

procedure TMain.ZoneWindowMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  {Form Dragging}
  If Draging Then
  begin
    If X < XStart Then Main.Left := Main.Left - (XStart - X);
    If X > XStart Then Main.Left := Main.Left + (X - XStart);

    If Y < YStart Then Main.Top := Main.Top - (YStart - Y);
    If Y > YStart Then Main.Top := Main.Top + (Y - YStart);
  end;
end;

procedure TMain.ZoneWindowMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  {Form End Dragging}
  Draging := False;
end;