1:
2:
3:
4:
5:
6:
7:

type
  TParticle = class(TObject)
  constructor Create(iPosX, iPosY,iSx,iSy: Integer);
  procedure paint;
  destructor Destroy;
  PosX,PosY,Sx,Sy : Integer;
  end;					

1:
2:
3:
4:
5:
6:

constructor TParticle.create(iPosX, iPosY,iSx,iSy: Integer);
begin
  Inherited Create;
  PosX := 0;
...
end;