procedure TForm1.DoAsyncLoad();
var
 lReaded: Cardinal;
 lTransferred: Cardinal;
 lBuff: Pointer;
 lRes: Boolean;
 lErr, lErr2: Cardinal;
 lFileHandle: Cardinal;
 lOverlapped: TOverlapped;
begin

 lFileHandle := CreateFile( PChar( edtFileName.Text ),
                            GENERIC_READ, 0,
                            nil, OPEN_EXISTING,
                            FILE_ATTRIBUTE_NORMAL or FILE_FLAG_OVERLAPPED, 0 );

 if lFileHandle = INVALID_HANDLE_VALUE then
   RaiseLastOSError;
 try
   lReaded := 0;
   ZeroMemory( @lOverlapped, SizeOf( TOverlapped ));
   GetMem( lBuff, C_BLOCK_SIZE ); //используем большой буфер
   try
     repeat
       lReaded := 0;
       //обнуляем внутренние данные для нового вызова "перекрываемой" функции
       lOverlapped.Internal := 0;
       lOverlapped.InternalHigh := 0;
       //hEvent не задаю, так как нигде ожидать ничего не будем
       lRes := ReadFile( lFileHandle,
                         lBuff^,
                         C_BLOCK_SIZE,
                         lReaded,
                         @lOverlapped );
       if not lRes then
         lErr := GetLastError
       else
         lErr := ERROR_SUCCESS;
       if not lRes then
         case lErr of //проверка ощибки ReadFile
           ERROR_IO_PENDING: //асинхронная операция
           begin
             lTransferred := 0;
             repeat
               lRes := GetOverlappedResult( lFileHandle,
                                            lOverlapped,
                                            lTransferred,
                                            False );
               if not lRes then
                 lErr2 := GetLastError;
               if not lRes then
                 case lErr2 of //проверка ошибки  GetOverlappedResult
                   ERROR_IO_INCOMPLETE: Application.HandleMessage; //операция не завершилась? обработаем очередное сообщение
                   ERROR_HANDLE_EOF:
                   begin //файл кончился?
                     lReaded := 0; //ничего не прочитали
                     break; //выходим из внутреннего цикла
                   end;
                   else
                     RaiseLastOSError;
                 end;
             until lRes; //пока не завершиться операция...
             if lRes then
               lReaded := lTransferred; //надо ли?
           end;
           ERROR_HANDLE_EOF: lReaded := 0; //если файл кончилсо, то выходим из цикла
           else
              RaiseLastOSError;
         end;
       if lRes then
       begin
         //
         //что-то делаем с lBuff
         //
         lOverlapped.Offset := lOverlapped.Offset + lReaded; //сдвигаем
       end;
     until lReaded = 0;
   finally
     FreeMem( lBuff );
   end;
 finally
   CloseHandle( lFileHandle );
 end;
end;