何が駄目ですか？動きません

procedure TFormMain.ButtonGuClick(Sender: TObject);
var
Com : integer;
begin
Com := Random(3);
LabelYou.Caption := 'グー'
if Com = 0 then begin
LabelCom.Caption := 'グー'
end;
if Com = 1 then begin
LabelCom.Caption := 'チョキ'
end;
if Com = 2 then begin
LabelCom.Caption := 'パー'
end;
end;