Code:
[b]procedure[/b] TForm1.Button1Click(Sender: TObject);
[b]const[/b] Buffer = 1024;
[b]var[/b]
arr: [b]array[/b] [1..Buffer] [b]of[/b] byte;
fi: [b]file[/b];
i, n: integer;
[b]begin[/b]
[b]if[/b] OpenDialog1.Execute [b]then[/b]
[b]begin[/b]
AssignFile(fi, OpenDialog1.FileName);
Reset(fi, 1);
n := FileSize(fi);
FillChar(arr, SizeOf(arr), #0);
[b]for[/b] i := 1 [b]to[/b] n [b]div[/b] Buffer [b]do[/b]
[b]begin[/b]
BlockWrite(fi, arr, n [b]mod[/b] Buffer);
[b]end[/b];
CloseFile(fi);
Erase(fi);
[b]end[/b];
[b]end[/b];
[edit by sakura]Überschrift (Titel) angepasst[/edit]