necesito un componente para aclarar/oscurecer imagen

[kapullok_2006]

por lo visto deseo poder hacer ésto,o si no es posible,una función.

También adaptar una foto al tamaño del bitbutton.

Una última cosa,si pincho en un Timage del Form1.image1Onclick(),para acceder a otro form2,y pinco en bitbtn de copia de fotos,me dá error en la
línea de código donde está el 'and',se supone q la condición está bien:

procedure TForm2.Suma_copia0Click(Sender: TObject);
begin
while (Form1.Image1.OnClick) and (cantidades.Count > i) do
begin
copia1:=StrToFloat(cantidades.Strings[i]);
copia1:=copia1+1;
cantidades.Strings[i]:= FloatToStr(copia1);
Form2.Edit1.Text:=FloatToStr(copia1);
Form2.Edit2.Text:=FloatToStr(1.50*copia1)+'€';
end;

Se dice un warning de que no encuentra los parámetros,¿puede q haya q añadir algo en 'uses'?

Saludos,gracias.