writerecords

procedure writerecords(

  const count: Integer;

  const size: Integer;

  const stream: tstream;

  const data

);