- procedure TForm1.FormPaint(Sender: TObject);
- var x,y,r,l:integer;
- begin
- randomize;
- canvas.Font.Name:='Verdana';
- canvas.Font.Style:=[fsBold];
- for r:=1 to 400 do
- begin
- x:=random(20);
- for y:=1 to random(20) do
- begin
- sleep(1);
- canvas.Font.Color:=RGB(0,MulDiv(y,255,20),0);
- canvas.TextOut(x*15,y*15,chr(random(65)+65));
- l:=y;
- end;
- canvas.Font.Color:=clWhite;
- canvas.TextOut(x*15,l*15,chr(random(65)+65));
- end;
- end;
procedure TForm1.FormPaint(Sender: TObject);
var x,y,r,l:integer;
begin
randomize;
canvas.Font.Name:='Verdana';
canvas.Font.Style:=[fsBold];
for r:=1 to 400 do
begin
x:=random(20);
for y:=1 to random(20) do
begin
sleep(1);
canvas.Font.Color:=RGB(0,MulDiv(y,255,20),0);
canvas.TextOut(x*15,y*15,chr(random(65)+65));
l:=y;
end;
canvas.Font.Color:=clWhite;
canvas.TextOut(x*15,l*15,chr(random(65)+65));
end;
end;