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:

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?