[NumLock]

на WinAPI:

Код:

var
  h: THandle;
  s: String;
  dummy: Cardinal;
begin
  h:=CreateFile('d:\Temp\Avatar.avi', GENERIC_READ, 0,
    nil, OPEN_EXISTING, 0, 0);
  if h<>INVALID_HANDLE_VALUE then
  begin
    SetLength(s, GetFileSize(h, nil));
    if ReadFile(h, s[1], Length(s), dummy, nil) then Edit1.Text:=s;
    CloseHandle(h);
  end;
end;

Bargest, у тебя TStringList не прибивается