[lmikle]

Try this:

Код:

constructor TAnimate.Create(x0, y0: Integer; bitmap0: array of TBitmap;
  maxFrame0: Integer);
var
  I : Integer;
begin
  x:=x0;
  y:=y0;
  SetLength(bitmap,Length(bitmap0));
  For I := Low(bitmap0) to High(bitmap0) Do
    bitmap[i] := bitmap0[i];
  curFrame:= 0;
  maxFRame:= maxFrame0;
end;