if Self_.fModalForm <> nil then
       SetFocus( Self_.fModalForm.fHandle )
     else if ( Self_.FCurrentControl <> nil ) and
             not ( Self_.fCurrentControl.IsForm xor Self_.fIsApplet ) then

function FileSeek(Handle: THandle; {$IFNDEF STREAM_COMPAT} const {$ENDIF} MoveTo: TStrmMove; MoveMethod: TMoveMethod): TStrmSize;
{$IFDEF STREAM_LARGE64}
var HiPtr: DWORD;
{$ENDIF}
begin
 {$IFDEF STREAM_LARGE64}
 HiPtr := MoveTo shr 32;
 Result := SetFilePointer(Handle, DWORD( MoveTo ), @ HiPtr, Ord( MoveMethod ) );
 if (DWORD( Result ) = $FFFFFFFF {INVALID_SET_FILE_POINTER}) and
    (GetLastError <> NO_ERROR) then
    Result := -1; // Int64(-1)
 if Result >= 0 then
   Result := Result or (int64(HiPtr) shl 32);
 {$ELSE}
 Result := SetFilePointer(Handle, MoveTo, nil, Ord( MoveMethod ) );
 {$ENDIF}
end;

function GetSizeFileStream( Strm: PStream ): TStrmSize;
{$IFDEF STREAM_LARGE64}
var SizeHigh: DWORD;
{$ENDIF}
begin
 {$IFDEF STREAM_LARGE64}
 Result := GetFileSize( Strm.fData.fHandle, @ SizeHigh );
 Result := Result or (int64(SizeHigh) shl 32);
 {$ELSE}
 Result := GetFileSize( Strm.fData.fHandle, nil );
 if Result = DWORD( -1 ) then Result := 0;
 {$ENDIF}
end;