Eliminar registros con THandleStream

[jars]

Hola amigos:
Tengo el siguiente problema:
Un archivo de texto con registros y segun una variable pueda tener mas o menos registros, esto es en determinadas circunstancias este puede tener pej. 320 registros y en otras 245, entonces tengo que eliminar los que estan por encima de 245. Este es el codigo que tengo:

Código Delphi [-]
var
  stream: THandleStream;
begin
  hndl := fil_open(AFileSpec, 'srw');
  if hndl < 0 then Exit;
  stream := THandleStream.Create(hndl);
  slChannels.LoadFromStream(stream);

  if slChannels.Count > maxlinescount then
    for i := slChannels.Count-1 downto maxlinescount do
      slChannels.Delete(i);
    stream.Position := 0;
    slChannels.SaveToStream(stream);
    .....
end;
.....

El problema es que no me elimina los registros del archivo.
Algun idea?

Gracias