[DELPHI] Obrazki

[leska]

Witam ! Mam problem a mianowicie.Wgralem do image4 obrazek i chce by image 5 tez mial taka wartosc.Wszystko ladnie sie kompiluje lecz wyskakuje blad w pliku exe "Abady is not a valid integer value".W pozostalych przypadkach tez tak jest oprucz image1.Dodalem do uses jpeg.Co jest nie tak ze wywala ciagle blad juz w skompilowanym pliku ?

var
pkt, licz :integer;
begin
pkt:=strtoint(label7.caption);
licz:=strtoint(label10.Caption);
if (pkt>=100) then
begin
image5.Picture:=image4.picture;
label7.caption:=inttostr(pkt-100);
label11.Visible:=true;
end else
begin
form2.show;
form2.ListBox1.Items.Add('Za malo masz punktow! Item specjalny!');
end;
end;

 

[kanar123]

image5.Picture.Assign(image4.Picture);

 

[Legalnl]

or

image5.picture := image4.picture;