Code:

procedure TMainForm.img_ExportXLSImageClick(Sender: TObject);
Const
  xlWBATWorksheet = -4167;

Var
//  ClassID: TCLSID;

  XLApp,
  Sheet,
  Range : Variant;

  X,
  Y,
  Z,
  Temp : Integer;

  Zanrovi : TStringList;

  Function RemoveSpaces (S : String) : String;

  Begin
    While Pos (' ', S) > 0 Do
      Delete (S, Pos (' ', S), 1);
    If S = '' Then S := ' ';
    Result := S;
  End;

begin
  Try
    XLApp:= CreateOleObject('Excel.Application');
  Except
    MessageDlg('This option requires Microsoft excel to be installed.'+#13+#10+'Install Microsoft Excel and try again.', mtError, [mbOK], 0);
    Exit;
  End;

  With SaveDialog Do
    Begin
      Filter := 'Microsoft Excel Files (*.xls)|*.xls';
      FileName := XlsFileName;
      DefaultExt := 'xls';
      Title := 'Choice Excel file to export list to'
    End;

  If SaveDialog.Execute Then
    Begin
      If QuestionForm.Execute('Eksportovanje po zanru?', '') = mrYES Then
        Begin
          Zanrovi := TStringList.Create;
          Zanrovi.Sorted := True;
          For x := 0 To MovieList.Items.Count -1 Do
            If Not Zanrovi.Find(RemoveSpaces (UpperCase (MovieList.items [x].Subitems [1])), Temp) Then
              Zanrovi.Add(RemoveSpaces (UpperCase (MovieList.items [x].Subitems [1])));

          XLApp.Visible := True;
          XLApp.Workbooks.Add(xlWBatWorkSheet);
          XLApp.Workbooks[1].Sheets.Add(,,Zanrovi.Count - 1,xlWBatWorkSheet);
          For X := Zanrovi.Count - 1 DownTo 0 Do
            Begin
              XLApp.Workbooks[1].Sheets[x + 1].Name := Zanrovi [x];
              Sheet := XLApp.Workbooks[1].Sheets [x + 1];

              Range := Sheet.Columns;
              Range.Columns[1].ColumnWidth := 5;
              Range.Columns[2].ColumnWidth := 32;
              Range.Columns[3].ColumnWidth := 22;
              Range.Columns[3].ColumnWidth := 22;

              Range := Sheet.Range['A1:D1'];
              Range.Columns.Interior.ColorIndex := 49;
              Range.Columns.Font.ColorIndex := 27;
              Range.Columns.Font.Bold := True;

              Sheet.Cells[1, 1] := 'Sifra';
              Sheet.Cells[1, 2] := 'Naziv';
              Sheet.Cells[1, 3] := 'Glumci';
              Sheet.Cells[1, 4] := 'Napomena';

              Z := 0;
              For Y := 0 To MovieList.Items.Count - 1 Do
                If RemoveSpaces (UpperCase (MovieList.items [y].Subitems [1])) = Zanrovi [x] Then
                  Begin
                    Sheet.Cells [z + 2, 1] := MovieList.Items [y].Caption;
                    Sheet.Cells [z + 2, 2] := MovieList.Items [y].SubItems [0];
                    Sheet.Cells [z + 2, 3] := MovieList.Items [y].SubItems [2];
                    Sheet.Cells [z + 2, 4] := MovieList.Items [y].SubItems [3];
                    Inc (z);
                  End;

            End;
        End
      Else
        Begin
          XLApp.Visible := True;
          XLApp.Workbooks.Add(xlWBatWorkSheet);
          XLApp.Workbooks[1].WorkSheets[1].Name := 'MovieCatalog';
          Sheet := XLApp.Workbooks[1].WorkSheets['MovieCatalog'];

          Range := XLApp.Workbooks[1].WorkSheets['MovieCatalog'].Columns;
          Range.Columns[1].ColumnWidth := 5;
          Range.Columns[2].ColumnWidth := 22;
          Range.Columns[3].ColumnWidth := 12;
          Range.Columns[4].ColumnWidth := 22;
          Range.Columns[5].ColumnWidth := 22;

          Range := XLApp.Workbooks[1].WorkSheets['MovieCatalog'].Range['A1:E1'];
          Range.Columns.Interior.ColorIndex := 49;
          Range.Columns.Font.ColorIndex := 27;
          Range.Columns.Font.Bold := True;

          Sheet.Cells[1, 1] := 'Sifra';
          Sheet.Cells[1, 2] := 'Naziv';
          Sheet.Cells[1, 3] := 'Zanr';
          Sheet.Cells[1, 4] := 'Glumci';
          Sheet.Cells[1, 5] := 'Napomena';

          For X := 0 To MovieList.Items.Count - 1 Do
            Begin
              Sheet.Cells [x + 2, 1] := MovieList.Items [x].Caption;
              Sheet.Cells [x + 2, 2] := MovieList.Items [x].SubItems [0];
              Sheet.Cells [x + 2, 3] := MovieList.Items [x].SubItems [1];
              Sheet.Cells [x + 2, 4] := MovieList.Items [x].SubItems [2];
              Sheet.Cells [x + 2, 5] := MovieList.Items [x].SubItems [3];
            End;
        End;
      XLApp.Workbooks[1].SaveAs(SaveDialog.FileName);
    End;
  XLApp.Quit;
end { Export XLS file };