Как сделать передвижение формы по экрану?

{$apptype windows}
{$reference 'System.Windows.Forms.dll'}
{$reference 'System.Drawing.dll'}
 
uses
  System.Windows.Forms,
  System.Drawing;
  
var
  MainForm: Form;
  x: integer;
  
begin
  MainForm := new Form;
  MainForm.StartPosition := FormStartPosition.CenterScreen;
  MainForm.Text:='Crug';
  MainForm.FormBorderStyle := FormBorderStyle.None;
  MainForm.ClientSize := new System.Drawing.Size(200, 200); {Подгоняем под размер изображения}
  MainForm.BackColor := Color.HotPink; {Цвет фона задаём "левый", который больше нигде не будет использоваться}
  MainForm.TransparencyKey := Color.HotPink; {Делаем прозрачным наш "левый" цвет}
  MainForm.BackgroundImage := Image.FromFile('background.png');
  
  
  
  Application.EnableVisualStyles;
  
  Application.Run(MainForm);
end;

{$apptype windows}
{$reference 'System.Windows.Forms.dll'}
{$reference 'System.Drawing.dll'}
 
uses
  System.Windows.Forms,
  System.Drawing;
  
var
  MainForm: Form;
  r : Rectangle;
  dx : integer := 5;
  dy : integer := 0;
  
procedure tmTick(sender : Object; args : System.EventArgs);
begin
  if (MainForm.Right + dx > r.Width) or (MainForm.Left + dx < 0) then dx := - dx;
  MainForm.Left += dx;
  // аналогично - и с MainForm.Bottom/MainForm.Top и dy
end;
  
begin
  MainForm := new Form;
  MainForm.StartPosition := FormStartPosition.CenterScreen;
  MainForm.Text:='Crug';
  MainForm.FormBorderStyle := FormBorderStyle.None;
  MainForm.ClientSize := new System.Drawing.Size(200, 200); {Подгоняем под размер изображения}
  // MainForm.BackColor := Color.HotPink; {Цвет фона задаём "левый", который больше нигде не будет использоваться}
  // MainForm.TransparencyKey := Color.HotPink; {Делаем прозрачным наш "левый" цвет}
  // MainForm.BackgroundImage := Image.FromFile('background.png');
  
  var tm : Timer := new Timer();
  tm.Interval := 10;
  tm.Enabled := true;
  tm.Tick += tmTick;
  
  r := Screen.FromControl(MainForm).WorkingArea;
  
  Application.EnableVisualStyles;
  
  Application.Run(MainForm);
end.

var
  MainForm: Form;
  r : Rectangle;
  dx : integer := 5;
  dy : integer := 3;
......................................................
procedure tmTick(sender : Object; args : System.EventArgs);
begin
  if (MainForm.Right + dx > r.Width) or (MainForm.Left + dx < 0) then dx := - dx;
  MainForm.Left += dx;
  if (MainForm.Bottom + dy > r.Height) or (MainForm.Top + dy < 0) then dy := - dy;
  MainForm.Top += dy;
end;

procedure tmTick(sender : Object; args : System.EventArgs);
begin
  if (MainForm.Right + dx > r.Width) or (MainForm.Left + dx < 0) then 
   begin
    dx := -dx;
    if dy>0 then dy := 1+random(5)
    else dy := -1-random(5)
   end; 
  MainForm.Left += dx;
  if (MainForm.Bottom + dy > r.Height) or (MainForm.Top + dy < 0) then 
   begin
    dy := -dy;
    if dx>0 then dx := 1+random(5)
    else dx := -1-random(5)
   end; 
  MainForm.Top += dy;
end;