procedure TForm1.Check;
begin　if img1=img2 then begin
Label3.Caption:='あいこ';
Exit
end;
if (img1 =1)and(img2=3)then　begin
Label3.Caption := 'あなたの勝ち';
Exit
end;
　　　if (img1=2)And(img2=1)then　begin
Label3.Caption :='あなたの勝ち';
Exit
end;
　　　if (img1=3)and(img2=2)then　begin
Label3.Caption:='あなたの勝ち';
Exit
end;
Label3.Caption:='あなたの負け';
end;