Изучаю Delphi. В чём ошибка?

procedure TForm1.FormDblClick(Sender: TObject);
var
  Md: ScanDir;
begin
  Memo1.Clear;
  If md.New('I:\MSDESIGN') then begin // <----------------------  Предупреждение на эту строку
    Memo1.Lines.Add('ПУТЬ '+md.DirPath);
    while true do begin
    end;
  end;
end;

unit MyDir;
 
interface
  uses Classes,SysUtils;
 
Type
  ScanDir = class(TComponent)
  protected
    FDirPath: String;
    FDirError: integer;   //  0 - îøèáîê íåò
                          //  1 - ïóòü íå íàéäåí
  Public
    Function New(Path: String):boolean;
 
  published
    property DirPath: String read FDirPath;
    property DirError: integer read FDirError;
 
end;
 
 
implementation
 
Function ScanDir.New(Path: String):boolean;
var
asd:String;
Begin
  FDirError:=0; // <---------------------------- При выполнении выскакивает ошибка "Project raised exception class EAccessViolation" в этой строке
  Path:=Trim(Path);
  asd:=copy(Path,length(path),1);
  if asd<>'\' then Path:=path+'\';
 
  if DirectoryExists(path) then begin
 
  end else begin
    FDirError:=1;
  end;
 
  Result:=false;
End;
 
end.