VB vs Delphi ＠夏厨2002

--------- File DisktopV1.DPR ---------
program DisktopV1;
uses windows,Graphics;
const AA:array [0..3] of string=
('　　　 ∧,,∧　　 '
,'　　　ミ,,ﾟДﾟ彡 '
,'　　ﾐ　つ旦)~~　　 '
,'　～と,,,~),,~)　 ');
var i,y,c:Integer;
var Canvas:TCanvas;
begin
Canvas:=TCanvas.Create;
Canvas.Handle:=GetDC(0);
　 with Canvas.Font do begin
　　　Name:='ＭＳＰゴシック';
　　　Height:=480 div 5;
　 end;
　Canvas.Brush.Style :=bsClear;
　for c:=0 to 255 do begin
　 y:=10;
　 Canvas.Font.Color:=c shl 16 + c shl 8　;
　　for　i:=0 to High(AA) do begin
　　 Canvas.TextOut(10,y,AA[i]);
　　 Inc(y,Canvas.TextHeight(AA[i]));
　　end;
　Sleep(1);
　end;

end.