Missing operator or semicolon ?

[kerngehirn]

Hallo

Wenn ich bei Delphi 7 folgenden Code eingebe, erscheint immer die Fehlermeldung "Missing operator or semicolon".
Kann mir jemand sagen warum, bzw. was ich dagegen unternehmen kann?

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    X: TButton;
    Schreiben: TButton;
    procedure Formcreate(Sender: TObject);
    procedure XClick(Sender: TObject);
    procedure SchreibenClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Formcreate(Sender: TObject);
begin
color:=clred
end;

procedure TForm1.XClick(Sender: TObject);
begin
halt
end;

procedure TForm1.SchreibenClick(Sender: TObject);
begin
   with canvas do
   with font do
   begin
   case random (3) of
   0:name:='Wingdings';
   1:name:='Oasis';
   2:name:='Arial';
   end  ;
   begin
   Case random (5) of
   0:style:=[fsbold];
          1:style:=[fsunderline];
              2:style:=[fsstrikeout];
               3:style:=[fsitalic];
                4:style:=[fsbold,fsitalic];
                end;
                height:= random (50)+10;
                Textout (random (width), random (height)+50 'Hallo!');
                end;
end;
 end;
end.

Vielen Dank im Vorraus