Quebrar arquivo grande em partes pequenas!!!!

Olá pesso@l, eu estou precisando de uma função ou um componente para
Delphi que seja capaz de quebrar um arquivo em várias partes pequenas.
Por ex:
- um arquivo de 10 Mb
- ficaria em partes pequenas de 1.38 Mb
- facilitando assim o transporte em disquetes.

Existem aplicativos que fazem isso, como o Splitter.exe

mas eu quero incorporar isso em um programa meu,
através de uma rotina ou de um componente.

Até M@is, galer@!!!