Missing operator or semicolon ?

[RWarnecke]

Erstmal ein herzliches Willkommen in der Delphi-Praxis. Nun zu Deinem Problem.

Eine gute Formatierung währe nicht schlecht. In einer guten Formatierung des Sourcecodes kann man Fehler sehr leicht erkennen und beheben, wenn es sich um Syntaxfehler handelt, so wie in Deinem Fall. Hier mal nun der formatierte Sourcecode :

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
  begin
    with font do
    begin
      case random (3) of
        0:name:='Wingdings';
        1:name:='Oasis';
        2:name:='Arial';
    end;
    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.

So sollte der Sourcecode funktionieren, habe gerade kein Delphi zur Hand. Du hattest ein end; zu viel.