Probleme mit Tlist bei Prozeduren

[smyle2000]

Also dies sind die Codezeilen, an denen se liegen kann.

Code:

procedure Split_Img(bild:TImage;var liste:TObjectlist);
var seg:TSegment;
  i,j,m:integer;
begin
   ...
  
  for i:=0 to m do //m=Anzahl der Teile
  begin
    seg:=TSegment.Create;
    seg.x:=bild.Width;
    seg.y:=bild.Height;
    seg.bild:=TBitmap.Create;
    seg.bild.Height:=seg.y; //Setzen der Größe
    seg.bild.Width:=seg.x;
    liste.Add(seg);
  end;

  for i:=1 to m-1 do
  with (liste[i] as TSegment) do
  begin
    bild.Canvas.CopyRect(r1,bild.Canvas,r2);
    sizex:=sizex-x;
    sizey:=sizey-y;
  end;


end;