Problem z SetFocus + wskaźniki

 PGraf = ^TGraf;
  TGraf = record
   Obiekt : TCustomControl;
   GFalse: PGraf;
   end;
var
Next     : PGraf;
root      :PGraf;
procedure TMainForm.StepClick(Sender: TObject);
begin
if stepG = false then
 begin
 stepG:=true;
 next:=root;
 next.Obiekt.SetFocus;
 //lub to TObjSekw(next^.Obiekt).MouseDown(mbLeft,[ssLeft],2,2);
 end
else
  begin
  next := next^.GFalse;
  next.Obiekt.SetFocus; //tu błąd
// lub  TObjSekw(next^.Obiekt).MouseDown(mbLeft,[ssLeft],2,2);
  end;

Po pierwszym kliknięciu wszystko jest w porządku ... pierwszy obiekt
dostaje Focusa jednak po drugim kliknięciu wywala błąd EAV przy
SetFocus drugim.
Dodatkowo jak wywale ifa i else to wykonuje się pierwszy i drugi
SetFocus. Prosze o pomoc w rozwiązaniu tego problemu.

next jest niezainicjowany, tam za else

Jest bo w pierwszej fazie StepG jest false recznie ustawione
next := next^.GFalse;
dziala bez problemu tylko tu ponizej sie wykłada
next.Obiekt.SetFocus; //tu błąd