Units...Access Violation...Sonderbar

[Flippo]

Delphi-Quellcode:

unit Shake;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type

tMaus=class
public
x:integer;
y:integer;
end;

procedure Clear;
function Full(x:integer;y:integer;co:integer):integer;

var
P: array [1..30] of tMaus;
i:integer;

implementation

procedure Clear;
begin
   for i:= 1 to 30 do begin
   P[i]:=tMaus.create;
   P[i].x:=1025;
   end;
end;

function Full(x:integer;y:integer;co:integer):integer;
begin
   while ((Shake.P[co+1].x=1025) and (co<31)) do co:=co+1;//Geändert damit ich nicht auf 0 usw.
   if (co>30) then Full:=co else begin
   Shake.P[co].x:=x;
   Shake.P[co].y:=y;
   Shake.P[co+1].x:=0;
   Full:=co;
   end;
end;
end.

also clear wird im Programm vorher aufgerufen also sollte p doch eigentlich erzeugt sein oder, bin mir jetzz wo du das so sagst nichtmehr ganz sicher?