Invalid Pointer Operation

[Стелс]

Invalid Pointer Operation происходит иногда
иногда срабатывает отлично

exports user;

function user(userList:string):string;
begin
try

  Form1:=TForm1.Create(Application);
  userList:=Form1.ListBox1.Items.Strings[0];
  Result:=userList;
  Form1.Free;
  except
   end;
  end;

таким способом экспортирую результат функции из dll (мож чо не так ?? )

[Stilet]

Form1.ListBox1.Items.Count;

Это че?
Наверное так:

 if Form1.ListBox1.Items.Count>0 then
   userList:=Form1.ListBox1.Items.Strings[0];