1:
2:
3:
4:
5:
6:

uses screenwriting;

var
  Form1: TForm1; 
  MyWriting : TScreenWriting; 
  MausGedrueckt : Boolean;      // Wichtig für das Schreiben					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

procedure TForm1.FormCreate(Sender: TObject);
begin
   MyWriting := TScreenWriting.Create;
   Panel1.Canvas.Pen.Width := 4;   // Geschmackssache wie breit der Stift malen soll
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  MyWriting.Free;
end;

procedure TForm1.MouseDown(Sender: TOBject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Mausgedrueckt := True;
  Panel1.Canvas.PenPos := Point(x,y);
end;

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  If Mausgedrueckt then
    begin
      MyWriting.AddPoint(Point(x,y));   // hier übergeben wir die Mauskoordinaten
      Panel1.Canvas.LineTo(x,y);        // hiermit zeichnen wir eine Linie
    end;
end;

procedure TForm1.Panel1MouseUp(Sender: TOBject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Mausgedrueckt := False;

  // IdentifyNumber ist eine Funktion, die WAHR zurückgibt wenn "eine" Zahl erkannt wurde
  // ist ein Fehler aufgetreten oder wurden 2 Zahlen erkannt, wird ein FALSE zurückgegeben
  if NOT MyWriting.IdentifyNumber then    
     begin
        // Fehler
        showmessage('Bitte schreiben Sie deutlicher!' + chr(13) + chr(13) +   // chr(13) ist ein Absatz im Text
                   MyWriting.ErrorMessage);
     end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowMessage('Deine Zahl lautet: ' + MyWriting.Text);   // Ausgabe der Zahl
   // eine Zahl kann auch mehrere Ziffern enthalten z.B.  12644

   MyWriting.New;   // Löscht die Zahl, sodass nun eine neue Zahl eingegeben werden kann
   Form1.Canvas.Clear;  // ein Versuch die Leinwand zu löschen... (klappt nicht immer bei mir??)
end;