В чём ошибка!

[DeNver20120]

if Image1.Picture.loadfromfile('111.bm p') then label1.Caption:='111';

вчём ошибка помогоите??
или как-то можно по другому записать???

[Error] Unit1.pas(437): Type of expression must be BOOLEAN
Тип выражения должен быть BOOLEAN???????????????????
если в конце =True добавить несовпадение типов!

[Stilet]

loadfromfile не функция, и участвовать в условных операторах не имеет права.

try
 Image1.Picture.loadfromfile('111.bm p');
  label1.Caption:='111';
except
 on e:Exception: do ShowMessage('Ошибка: '+e.Message);
end;

Вместо Exception можешь конкретно указать класс исключения открытия файлов, если хочешь.

[DeNver20120]

спс огромное!

[DeNver20120]

А если надо создать анимацию изображения без загрузки gif
например:
в таймере
если картинка 1 то картинка 2 иначе картинка 1

[DeNver20120]

как здесь поступить?

[DeNver20120]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Picture.LoadFromFile('111.bm p');
try
Image1.Picture.loadfromfile('11.bmp ');
timer2.Enabled:=true;


except
on e:Exception do ShowMessage('Ошибка: '+e.Message);
end;

end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Image1.Picture.LoadFromFile('11.bmp ');
try
Image1.Picture.loadfromfile('111.bm p');
timer1.Enabled:=true;


except
on e:Exception do ShowMessage('Ошибка: '+e.Message);
end;
end;

end.

[DeNver20120]

разобрался!!