[AND_REY]

Первое что в голову пришло :

Код:

Var
 x,y: Integer;
 t: Real;
 c: Byte;
begin
t:= -350;
While t < 350 Do
 begin
  For c:= 255 DownTo 0 Do
   begin
    x:= Round(255+c*Sin(t));
    y:= Round(255+c*Cos(t));
    Form1.Canvas.Pixels[x,y]:= RGB(255-c,0,0);
   end;
  t:= t + 0.1;
 end;
end;