Indy Клиент-сервер, ошибка Identifier not found "AThread"

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,StdCtrls, ExtCtrls, IdFTP, IdTCPClient;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    IdTCPClient1: TIdTCPClient;
    Image1: TImage;
     Timer1: TTimer;
   // procedure Button1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  z: integer = 1;           // не нужный на данный момент счетчик для сохранения
  MS:TMemoryStream;       //Для файлика буфер
 
implementation
 
 
{$R *.lfm}
 
{ TForm1 }
 
 
procedure TForm1.Button1Click(Sender: TObject);    //\реализация через кнопку
var
  MemStream:TMemoryStream;
FileName:string ;
SizeFile:integer;
l: string;
begin
  //IdTCPClient1.host:=(192.168.0.111);
  //IdTCPClient1.port:= (8080);
   idTCPClient1.Connect;
  Form1.Caption:='Client: Connected.';
  idTCPClient1.Disconnect;
   Form1.Caption:='Client: Disconnected.';
 
  // Sleep(7500);    // задержка программы (лишнее, так как вызывает некотоыре лаги( надо смотреть)
 
MemStream:=TMemoryStream.Create;
MemStream.LoadFromFile('c:\example.txt'); 
SizeFile:=MemStream.Size;
AThread.Connection.Writeln(FileName);  Передаю названия файла
AThread.Connection.Writeln(SizeFile);     Размер файла
AThread.Connection.WriteStream(MemStream);   Это мы посылаем файл (Это 3 мои пояснения написанная на форуме, а не в программе)
MemStream.Free; 
end;
 
end.