No me sale el header en la cabecera del ListView
 

Buenos días, tengo el siguiente codigo

Código Delphi [-]
procedure TF_ListaAlbaranes.FormShow(Sender: TObject);
var
  sqlstr:string;
  item,item1: TListViewItem;
begin
  With F_Data.FDQryListaAlbaranes do
    begin
      Sql.Clear;
      Active := False;
      sqlstr:= 'Select cal_serie,cal_nro,cal_cliente,cal_rsocial,cal_noment,cal_ref,cal_marca,cal_acuenta,cal_fecha from caalcl ' +
                'where cal_nro > 0 and cal_operario = ' + F_Inicio.EdOperario.text + ' and cal_rsocial like ' + '''' + '%' + '''' +
                ' and cal_noment like ' + '''' + '%' + '''' + ' and cal_marca= ' + '''' + 'P' + '''' + ' and cal_ref like ' +'''' +
                '%' + F_Inicio.LbRuta.text + '%' + '''' + ' order by cal_serie,cal_nro';
      Sql.Add(sqlstr);
      Active := True;
      Open;
    end;

  item := ListView_ListaAlbaranes.Items.Add;
  item.Purpose := TListItemPurpose.Header;
  item.Text := 'Serie Nro.  Cliente                                           Fecha';

end;

Al mostrar el listview con el resultado del query, el texto de la cabecera 'Serie Nro. Cliente Fecha' me aparece debajo de la lista como si fuera el pie de pagina.

¿Alguna idea de porque me funciona como si pusiera un pie de pagina?

Gracias, un saludo.