１スレたておめでとう、
　とあるスレに投稿しようとして作りかけたけど今ひとつなもんだから
　このスレ開設記念にあげるよ。　これを最初に走らせて Delphiに感動してやってくれ。

操作方法
ファイル->新規作成->その他->コンソールアプリを選択して
CTRL+A
CTRL+X
その後、以下を貼り付ける　F9を押す

//------------- 切り取り線 ---------------------
uses
Windows,
SysUtils,
Graphics,forms;
var x,y,xs,ys,c,i:Integer;
begin
with TCanvas.Create do try
Handle:=GetDC(0);
xs:=(GetSystemMetrics(0));
ys:=(GetSystemMetrics(1));
while GetKeyState(1)>= 0 do
for i:=0 to 10000 do begin
x:=random(xs);
y:=random(ys);
Pixels[x,y]:= Pixels[x+1,y+1];
end;
finally free;InvalidateRect(0,nil,True); end;
end.