Units...Access Violation...Sonderbar

[Flippo]

Hallo,
falls der Titel etwas merkwürdig und nichtssagend wirkt, dass liegt daran das mein Problem mir nichts sagt und ich keine Ahnung hab woran es liegen könnte.
Ich habe eine extra unit Shake, in der ich die Function Full aufrufe, mit den Werten x=320,y=371,co=0.

Delphi-Quellcode:

function Full(x:integer;y:integer;co:integer):integer;
begin
   while ((Shake.P[co].x=1025) and (co<31)) do co:=co+1; // <<Problem
   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;

Die Werte werden auch richtig von der Funktion übernommen, aber in der zeile die ich als Problem markiert habe wird der Wert von co, aus 0 zu 267313069 und ich bekomme meine Standard-Fehlermeldung:
EAccesViolation...Zugriffsverletzung bei Adresse 0044136F in Modul 'Project1.exe'. Lesen von Adresse 0000C0C3.
was kann das nur sein warum verändert der einfach ungefrag meinen Wert, das geht doch nicht, was mach ich nur falsch? Ich bin echt verzweifelt
danke schonmal im voraus
MFG
Flippo