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.