此功能如何实现？大家请进！(100分)

有一个可执行文件，用文件流读出其中的2000个字节，其中这2000个字节是每50个为一组，
如何才能在listbox中添加40个items？并且每一个item是以字串形式显示的。以上问题如何
解决？请给出例子程序！谢谢。急。

var
Stream:TMemoryStream;
Str:array[0..49] of Char;
begin
with OpenDialog1 do
begin
if Execute then
begin
Stream:=TMemoryStream.Create;
try
Stream.LoadFromFile(FileName);
Stream.SetSize(2000);
while Stream.Position<2000 do
begin
Stream.Read(Str,50);
ListBox1.Items.Add(Str);
end;
finally
Stream.Free;
end;
end;
end;
end;

up

谢谢,我要的就是这个.

接受答案了.