[Pilot_Red]

можно в принципе и так

Код:

var
i,j:integer;
lx,ly:integer;\\координаты блика на сфере ;
begin

lx:=100  ;
ly:=100  ;
for i:=1 to 300 do
  for j:=1 to 300 do
  begin
  if sqrt(sqr(i-150)+sqr(j-150))<150 then form1.Canvas.Pixels[i,j]:=255-round(sqrt(sqr(i-lx)+sqr(j-ly)));
  end;
end;

только, я не думаю что именно это нужно автору и дело не только в освещении. Дальше пойдут вопросы типа, а как изображениенатянуть на шар, а как от него тени сделать, а как прозрачность и.т.д.
По-этому рекомендую DirectX или OpenGL