Flere actions i samme linie?

Hejsa
Jeg har følgende kode:

  case h of
    0..3: label12.caption:='Kort '+ inttostr(h)+' tilsluttet';
    -1: label12.caption:='Kort '+ inttostr(CardAddr)+' blev ikke fundet';


        end

Jeg vil gerne have at i første "case" skal den OGSÅ sætte image1.visible = true og image2.visible = false og så i "case" 2, skal den gøre det omvendt, således at image2.visible = true og image1.visible = false.

Men har ingen idé om hvordan.
Det er alt for længe siden jeg har arbejdet med delphi.

Håber i kan hjælpe, på forhånd tak.