TFileStream - irgendwie raff ichs net

[Predator]

moin Jungs,

also ich versuche per TFileStream eine Datei einzulesen und wieder zu speichern (ich will später dann noch eine Verschlüsselungsroutine dazusetzten, das kommt dann aber in einen eigenen Thread). Jetzt mach ich das so:

Delphi-Quellcode:

function Kopiere(Input,Output: string) : string;
var
    fs,dest : TFileStream;
    Buffer : Byte;
begin
    fs := TFileStream.Create(Input, fmReadOnly);
    fs.Read(Buffer, fs.size);
try
    dest := TFileStream.Create(Output, fmCreate);
    dest.Write(Buffer, sizeof(Buffer));
finally
    FreeAndNil(fs);
    FreeAndNil(dest);
end;
end;

so nur irgendwie kommt manchmal ne Zugriffsverletzung bei Adresse irgendwas oder die Datei wird erstellt nur nichts kopert (0 KB);

Was hab ich da falsch gemacht ? Ich sitze jetzt schon seit gestern Abend daran das gibts doch net.

Hat jemand ein Tut wo alles über Streams(Memory,File,u.s.w.) steht ?

Danke !!!!

cu
Predator