procedure TForm1.FormCreate(Sender: TObject);
begin
    with Session do
       begin
       LoginUser:='Administrator';
       LoginPassword:='EDBDefault';
       Open;
       end;
    EDBDatabase1.Open;
    User.Open;
    User.Locate('user','zkocsis',[]);
    User.Close;
    User.Open;
    User.Lookup('kod',NULL,'nev');
    User.Locate('user','zkocsis',[]);  // Fails
end;