OnFormCreate DXDraw geht nicht

[cylon]

mit diesen beiden proceduren:

Delphi-Quellcode:

procedure TFormZero.FormCreate(Sender: TObject);
begin
 if not DXDrawGround.CanDraw then
  Exit;
 DXImageListStart.Items[0].draw(DXDrawGround.Surface, 0, 0, 0);
 DXDrawGround.Flip;
end;

procedure TFormZero.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
 if not DXDrawGround.CanDraw then
  Exit;
 DXImageListStart.Items[0].draw(DXDrawGround.Surface, 0, 0, 0);
 DXDrawGround.Flip;
end;

komm ich genauso weit, wie mit der OnClick-Variante...