EFFET MATRIX

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;