как без ошибки загрузить jpeg в image

[beemoto]

не могу разобратся:
загружаю jpeg в image так:

var
  capthca:TJPEGImage;
...
procedure TForm1.Button2Click(Sender: TObject);
begin
capthca:=capthca.Create;
capthca.LoadFromFile('D:\cap.jpeg');
image1.picture.Bitmap.Assign(capthca);
end;

но почемуто ругается на первую строчку процедуры кнопки...
в чем дело!?

[Sazary]

capthca:=TJPEGImage.Create;

[beemoto]

Sazary, точ,забыл)) СПС БОЛЬШОЕ В РЕПУ!
Оффтоп: а как мне с image удалить все пиксели допустим черного цвета!?

[DeKot]

И еще исправте :

capthca.LoadFromFile('D:\cap.,jpg');

[Sazary]

а как мне с image удалить все пиксели допустим черного цвета!?

Что значит удалить? Заменить другим цветом?
Просто пройдите по картинке попиксельно и проверяйте цвет текущего. Если черный, то меняете его.

[beemoto]

DeKot, исправил спс но немогу понять что это дало!? всё также норм работает..
Sazary, да,заменить белым, но я незнаю как пройти попиксельно...

[Sazary]

да,заменить белым, но я незнаю как пройти попиксельно...

for i:=1 to Image1.Width do
 for j:=1 to Image1.Height do
  if Image1.Canvas.Pixels[i,j] = clBlack then
   Image1.Canvas.Pixels[i,j] := clWhite;

[beemoto]

Sazary, во БОЛЬШОЕ СПС, а можно в RGB -цветах!?

[Sazary]

а можно в RGB -цветах!?

Ну а почему нельзя? )

Image1.Canvas.Pixels[i,j] := RGB(255,255,255);

[beemoto]

Sazary, УХУУУУУ!!! СПСССС!!!!!!!!!