Ошибка: Unit1.pas(38): Missing operator or semicolon

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;
 
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    Label4: TLabel;
    Panel1: TPanel;
    Label5: TLabel;
    procedure ListBox1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: Char);
begin
If key =#13 then
case ListBox1.ItemIndex of
0: Label3.Caption:='÷åðíûé               000000' panel1.Color:clblack;
1: Label3.Caption:='áåëûé                FFFFFF';
2: Label3.Caption:='êðàñíûé              FF0000';
3: Label3.Caption:='çåëåíûé              00FF00';
4: Label3.Caption:='áèðþçîâûé            00FFFF';
5: Label3.Caption:='ñèíèé                0000FF';
6: Label3.Caption:='ôèîëåòîâûé           FF00FF';
7: Label3.Caption:='æåëòûé               FFFF00';
8: Label3.Caption:='êîðè÷íåâûé           996633';
9: Label3.Caption:='îðàíæåâûé            FF8000';
10: Label3.Caption:='ëèëîâûé             8000FF';
11: Label3.Caption:='ñåðûé               À0À0À0';
end;
end;
 
end.

procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: Char);
begin
   If key =#13 then
      case ListBox1.ItemIndex of
      0: 
      begin
         Label3.Caption:='черный               000000'; panel1.Color:=clblack;
      end;
      // ...

  Label3.Caption:='бирюзовый               000000'; panel1.Color:=$00C8D530;