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

procedure Tfedit.TScrollAreaTimer(Sender: TObject);
var p:Tpoint;
begin
p := fedit.ScreenToClient(mouse.CursorPos); //<-- Fehler
  if (p.X > lLeft.Left) and (p.X < lLeft.Left+lLeft.Width) and
     (p.Y > lLeft.Top) and (p.Y < lLeft.Top+lLeft.Height) then begin
  scrollto(Scroll.X - 1,Scroll.Y);
  lLeft.Color := clred;
  end;
//...
end;

//Der Code hier löst den Fehler auch aus: (beim OnResize)
TileBox.Top := (fedit.Height - 172);
//TileBox ist ein Panel in dem eine Scrollbox mit aufgezeichneten Bitmaps drin ist.                    

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

procedure Tfedit.PlaceTile(mx,my: integer);
var tx,ty: integer;
begin
//Wenn etwas ausgewählt ist...
  if not (edit_seltile = 0) then begin
//Get Tile Pos
  tx := (mx) div 24;
  ty := (my) div 24;
//Teil in Array speichern..
  if (pTiles.Color = clred) or (pTilesBg.Color = clred) then edit_tileatpos[tx,ty] := edit_seltile;
//Teil auf OffsetBmp zeichnen
  if (pTiles.Color = clred) or (pTilesBg.Color = clred) then offsetbmp_tiles.Canvas.Draw(tx*24,ty*24,edit_bmpTile[edit_seltile]);
//
  end;
pbWorld.Refresh;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure Tfedit.TScrollAreaTimer(Sender: TObject);
var p:Tpoint;
begin
p := fedit.ScreenToClient(mouse.CursorPos); //<-- Fehler
  if (p.X > lLeft.Left) and (p.X < lLeft.Left+lLeft.Width) and
     (p.Y > lLeft.Top) and (p.Y < lLeft.Top+lLeft.Height) then begin
  scrollto(Scroll.X - 1,Scroll.Y);
  lLeft.Color := clred;
  end;
//...
end;