Как открыть видео через кнопку

function GetShellExecuteError(const ErrorCode:Integer;const FileName:string=''):string;
var
 FN:string;
begin
{      Value                                 Meaning
 0                  The operating system is out of memory or resources.
 ERROR_FILE_NOT_FOUND   The specified file was not found.
 ERROR_PATH_NOT_FOUND   The specified path was not found.
 ERROR_BAD_FORMAT   The .EXE file is invalid (non-Win32 .EXE or error
                        in .EXE image).
 SE_ERR_ACCESSDENIED    The operating system denied access to the specified file.
 SE_ERR_ASSOCINCOMPLETE The filename association is incomplete or invalid.
 SE_ERR_DDEBUSY         The DDE transaction could not be completed because other
                        DDE transactions were being processed.
 SE_ERR_DDEFAIL         The DDE transaction failed.
 SE_ERR_DDETIMEOUT  The DDE transaction could not be completed because the
                        request timed out.
 SE_ERR_DLLNOTFOUND The specified dynamic-link library was not found.
 SE_ERR_FNF         The specified file was not found.
 SE_ERR_NOASSOC         There is no application associated with the given
                        filename extension.
 SE_ERR_OOM         There was not enough memory to complete the operation.
 SE_ERR_PNF         The specified path was not found.
 SE_ERR_SHARE       A sharing violation occurred.}
 
 Result:='';
 FN:='';
 if FileName<>''
  then FN:=' '+FileName;
 case ErrorCode of
  {0                      }  0 : Result:='Системе не хватает памяти или ресурсов для выполнения операции';
  {SE_ERR_FNF             }  2 : Result:='Файл'+FN+' не найден.';
  {SE_ERR_PNF             }  3 : Result:='Путь к файлу'+FN+' не найден.';
  {SE_ERR_ACCESSDENIED    }  5 : Result:='Нет доступа к файлу'+FN+'.';
  {SE_ERR_OOM             }  8 : Result:='Недостаточно памяти для выполнения операции.';
  {ERROR_BAD_FORMAT       } 11 : Result:='Файл'+FN+' не является приложением Win32 или повреждён.';
  {SE_ERR_SHARE           } 26 : Result:='Ошибка при совместном доступе к файлу'+FN+'.';
  {SE_ERR_ASSOCINCOMPLETE } 27 : Result:='The filename association is incomplete or invalid.';
  {SE_ERR_DDETIMEOUT      } 28 : Result:='The DDE transaction could not be completed because the request timed out.';
  {SE_ERR_DDEFAIL         } 29 : Result:='Транзакция DDE не может быть выполнена.';
  {SE_ERR_DDEBUSY         } 30 : Result:='Транзакция DDE не может быть выполнена, т.к. выполняется другая транзакция DDE.';
  {SE_ERR_NOASSOC         } 31 : Result:='Файлу'+FN+' не сопоставлено приложение для его открытия.';
  {SE_ERR_DLLNOTFOUND     } 32 : Result:='Не найдена необходимая динамическая библиотека (DLL).';
  1,4,6,7,9,10,12..25          : Result:='Ошибка при работе с файлом'+FN+'.';
 end;//case
end;