请懂VB的朋友帮忙转一段代码为DELPHI.谢谢(100分)

Dim dcfData() As Byte
Dim file_length As Long
Dim fnum As Integer


CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
file_length = FileLen(CommonDialog1.FileName)
fnum = FreeFile
ReDim dcfData(1 To file_length)
Open CommonDialog1.FileName For Binary As #fnum
Get #fnum, 1, dcfData
Close fnum
Else
MsgBox "No file specified."
Exit Sub
End If

就是将打开的文件，以二进制形式读到dcfData数组中。
这个好像很简单吧。

var
dcfdata:array of byte;
begin //opendialog1在dialogs控件页
if opendialog1.execute then
begin
with TMemorystream.create do
begin
loadfromfile(opendialog1.filename);
setlength(dcfdata,size);
readbuffer(dcfdata[0],size);
free;
end;
end;
end;

多人接受答案了。