[paty_rlopez]

Gracias Bicho por tu respuesta.

Efectivamente puedo segmentar cualquier archivo, la mala noticia es que despues no puedo reproducir la parte segmetada. ¿Podrias darme alguna otra idea? el codigo que puse fue este

procedure TForm1.Button1Click(Sender: TObject);
var origen , destino : TFileStream;
begin
  Abrir.Execute;
  origen := TFileStream.Create(Abrir.FileName,fmOpenRead or fmShareDenyWrite);
  Guardar.Execute;
  destino := TFileStream.Create(Guardar.FileName,fmCreate or fmShareDenyRead);
  destino.CopyFrom(origen, 29303);
  FreeAndNil(origen);
  FreeAndNil(destino);
end;

a lo mejor estoy olvidando algo. Gracias otra vez