Threads - Methode .. nicht in Basisklasse gefunden

**SyntaxXx**

Nabend zusammen,
ich bin gerade dabei mich ein wenig mit Threads zu befassen.
Jetzt habe ich versucht 2 Memos zur selben Zeit zu befüllen, indem ich einfach die zahlen 0 bis 100 ausgeben lasse.

Dazu hier mein gesammter Quellcode:

markieren

Code:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TThread1 = class(TThread)

    protected

       procedure SendMemo1; override;

       procedure SendMemo2; override;

  end;

type

  TForm1 = class(TForm)

    Memo1: TMemo;

    Memo2: TMemo;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TThread1.SendMemo1;

var i : integer;

begin

for i := 0 to 100 do

    TForm1.Memo1.Lines.Add(IntToStr(i));

end;

procedure TThread1.SendMemo2;

var i : integer;

begin

for i := 0 to 100 do

    TForm1.Memo2.Lines.Add(IntToStr(i));

end;

procedure TForm1.Button1Click(Sender: TObject);

var Thread : TThread1;

begin

Thread := TThread1.Create(false);

Thread.FreeOnTerminate := true;

end;

end.

Doch immer wenn ich das Programm starten möchte kommt folgender Fehler:

"[DCC Fehler] Unit1.pas(12): E2137 Methode 'SendMemo1' nicht in Basisklasse gefunden"
"[DCC Fehler] Unit1.pas(13): E2137 Methode 'SendMemo2' nicht in Basisklasse gefunden"

Könnt ihr mir sagen, warum ich diese meldung bekomme?

Threads - Methode .. nicht in Basisklasse gefunden

Threads - Methode .. nicht in Basisklasse gefunden

Forumregeln