[SpectraL]

Код:

unit Unit2;

interface

uses
  Classes;

type
  ttest = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

var test: ttest;

implementation

procedure ttest.Execute;
var FileVar:TextFile;
begin
  AssignFile(FileVar, 'D:\Test.txt');
  Rewrite(FileVar);
  CloseFile(FileVar);
end;

initialization
 test := ttest.Create;

end.