Hy Lucki,
teste mal Deinen eigenen Tipp
Einfach Delphi->neue Anwendung.
-------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
Width:=2500;
ShowMessage(IntToStr(Width));
end;
-------------------------------------------
Resultat: 1296 (1280+Border/Rand des Forms - 2*8 Pixel mit meinem Design)
PS: Win 7