TParticle

type TParticle = record

  x: single;

  y: single;

  z: single;

  r: single;

  g: single;

  b: single;

  a: single;

  rad: single;

  ptype: Word;

  velocity: TVector;

end;