1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.Timer1Timer(Sender: TObject);
var Pos: TPoint;
begin
  // Mausposition ermitteln
  GetCursorPos(Pos);
  // Mausposition relativ zum Formular
  Pos := ScreenToClient(Pos);
  // Wenn Maus nicht im Fenster, Prozedur verlassen
  if (Pos.Y < 0) or (Pos.Y >= ClientHeight) or (Pos.X < 0) or (Pos.X >= ClientWidth) then Exit;
  if Pos.X < 300 then
  begin
    {linke Hälfte}
  end
  else
  begin
    {rechte Hälfte}
  end;
end;