Anfänger -- constructor problem - klassen V.

[Titus4you]

Hallo
erstmal danke für eure Hilfe.Dat mit dem override hat nicht funktioniert da delfi statische klassen nicht überschreiben kann.

ich hab einfach mal die unit hier reinkopiert:
hier das kleine problem:

Delphi-Quellcode:

unit lw;

interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Grids, Printers, DBGrids, Mask, DBCtrls, Db, DBTables,
  ComCtrls;
type
TLW1 = class

    z :integer;
   public
    Procedure LoadPic(image1:Timage;PicName :string);
    procedure SuchePic(dir:string; datei :string);
    constructor Create;



   end;
var
   LW1: TLW1;
   root : string;
   rootErr :boolean;       // musste ich global realiesieren da anders ??
   Picroot :string;
   DBRoot:string;
   picname :string;

implementation
uses  Unit1, Unit7,focus,Unit9,unit4;
constructor Tlw1.Create;
begin
lw1:=lw1.create;
lw1.z:=10;   //test ob V funktioniert   und hier ist der Fehler
end;


Procedure Tlw1.LoadPic(image1:Timage;PicName :string);

begin

  Image1.picture.loadfromfile(picroot+picname+'.bmp');
  lw1.z:=10;   // fehler
  if lw1.z = 10 then Zeichnung.label1.caption:='Variabel Test ';
  end;

Procedure TLW1.SuchePic(dir :string; datei: string);
Var rec: TSearchRec;
    i:integer;
    dirtemp :string;
// hier kann die gesamte Festplatte und alle perf.
//durchsucht werden nach einer bestimmten Datei

begin
    dir := IncludeTrailingBackslash(dir);
    if FindFirst(dir+'*.*',faAnyFile,rec)=0 then Begin
    repeat
       //Eintrag ist eine Datei
       If ((rec.attr And faDirectory) = 0) and (rec.Name[1]<>'.') then
        if rec.name = datei then
         begin
         root:=dir;
         rooterr:=true;
         //1 steht für gefunden
         end;
        if (rec.Attr and faDirectory = faDirectory) and (rec.Name[1] <> '.') then Begin
            dirtemp := dir + rec.name;
            lw1.SuchePic(dirtemp,Datei); //Rekursiv
        End;
    until FindNext(rec)<>0;
    FindClose(rec);
 End;


end;

end.

ich kann nicht mit lw1.z arbeiten warum nicht was fehlt??

danke für jede Hilfe !!! übrigens wer eine veritable Suchfunktion braucht soll sich diese rauskopieren

liebe grüße

titus4you