extraño error con TStringList

[lookmydoom]

Buenas, tengo un problema que para mi es francamente riduculo, tengo 2 unidades Unit1.pas y Words.pas, en la ultima creo un objeto TstringList, cuando lo compilo no da error pero al llamar al constructor me da un error de memoria, aqui dejo el codigo de ambas units, haber si alguien me dice en que estoy fallando plz.

Unit1.pas

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DB, ADODB, words;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;
  tw:Twords;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
tw.iniciar('c:\prueba\');
end;

Words.pas

Código Delphi [-]
unit Words;

interface

uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DB, ADODB;

type

    TWords = class
        private
          path:String;
          filelist:TStringList;
        public
          constructor iniciar(s:string);
        end;

var
    w:TWords;

implementation

constructor Twords.iniciar(s:String);
begin
filelist:=TStringList.Create;
path:=s;
end;