Delphi - componente de aclarado/oscurecer imagen

Hola, programadores. Perdonad pero soy novato, y no sé cómo encontar un componente q aclare7oscurezca una foto.Me valdría también lo mismo pero con una función.

Otra cosa, cómo poner una foto, ajustada al tamaño del Bitbtn.

Y por último, perdonad, pero me dá un fallo en la línea del 'and'.Pincho en image1 del form1 y los componentes del stringlist es mayor q una vble global q he asignado:

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;

end;
¿Puede ser problema de usar en 'uses' FileCtrl?

Saludos,gracias.